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Et par måneder i selskab med 
din nye computer bringer dig 
helt sikkert et stort skridt vide¬ 
re i spørgsmålet. Du tår tiere 
erfaringer, lærer maskinens 
særkender og du finder snart 
ud af, hvordan en lysende 
prik på skærmen kan for¬ 
vandles til et skrækindjagen¬ 
de uhyre. 

I denne artikel vil jeg give dig 
en række tips til opbygning 
af spilprogrammer. Vi viser i 
starten en række simple spil, 
der kun bruger skærmen til 
tekst. De har den fordel, at de 
næsten uden ændringer kan 
køre på forskellige computer¬ 
typer. 

Jeg har lavet programmerne 
på en Commodore 64 og en 
VIC-20. Har du en Texas TI-99/ 
4A, vil den ikke kunne tage 
“flere sætninger" i en linie, 
som i vores listning er adskilt 
ved kolon. På en Spectrum 
og en ZX-81 vil ordren RND( 1) 
slet og ret hedde RND. 


På andre maskiner vil der 
være tilsvarende små afvi¬ 
gelser, men alle, der kender 
lidt til sin computer, kender 
sikkert til disse særpræg. Det 
er først, når vi går over til de 
store skærmprogrammer, at 
oversættelser bliver meget, 
meget svære. Men, alligevel 
vi tager nogle enkle skærm- 
spil med undervejs i artiklen. 

Små gaver 
fra computeren 

En gave fra oven til spillema¬ 
geren er RND(1). Skriver vi 
PRINT RND(1), får vi som be¬ 
kendt et tal mellem 0 og 1 
med en masse decimaler. I 
Spectrum skrives RND* 1. 
Mere brugbart bliver det med 
INT, hvor f.eks. PRINT INT(RND 
(1)*6)+1 tilfredsstillende simu¬ 
lerer en terning. Vi kan nu 
prøve at gætte maskinens tal 
eller eventuelt spille terning 
mod den. 

Et rouletteprogram kan tildele 


Hvordan laver jeg mit eget spil, er 
et af de spørgsmål, vi oftest får 
stillet her på redaktionen. 

Mange nybagte computerejere 
har nemlig måttet sande, at ned¬ 
skydning af flyvende tallerkener 
og spøgelsesfortærende oste 
kræver en hel del viden om, hvor¬ 
dan skærmen fungerer, hvordan 
joysticket styres osv. * 5 SOFT 
Special’ ’ har bedt en virkelig eks¬ 
pert på området give gode råd til 
spilkonstruktører. Det er forfatte¬ 
ren Erwin Neutsky-Wulff, som er 
kendt for sine bøger til Sinclair, 
Commodore og Texas. 
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gevinst, når vores tal kommer 
ud. og vi kan prøve at spræn¬ 
ge en bank. Eller vi kan 
handle med aktier, hvis kur¬ 
ser stiger og falder. 

Et er imidlertid at lå ideen til et 
sådant spil. noget andet rent 
faktisk at fremstille det. Ne¬ 
denstående indeholder de 
almindeligste komponenter. 

Ved at analysere det skulle vi 
få en anelse om, hvordan så¬ 
dan noget fungerer. 

1 «=100 B=6 C=6^RINT PRINT "BILLY THE KID HØR" PRIMT "UBFORBRET BIO TIL BUEL" 

2 Rsft-IUF R*0 THEN PRINT "I BLEV OOBE VENNER" ENB 

3 PRINT PRINTRFSTflNB" R "METER" PRINT "BU HRR" B “SKUB TILBROE" : IF 8*0 THEN 7 

4 INPUT "VIL BU SKYBE <J/N)",R$ IF R*="N" THEN 7 

5 B-B-l PRINT''BU SKØB ■; UF RNB <1>>R/100 THEN PRINT"00 RAMTE" PR I NT "BU ER EN HE 
LT":ENB 

6 PRINT “FORBI" 

7 IF RNBUXR/100 OR C*0 THEN PRINT "THE KIB VENTER ROLIGT" GOTO 2 

0 OC-1 PRINV'BILLY SKØB ", IF RNB(1 KR/100 THEN PRINT “FORBI" GOTO 2 
9 PRINT "00 RAMTE"-PRINT "BU ER TEMMELIG BøB" 

REABV. 



Som man vil se. er der tre va¬ 
riabler ud over A$, der blot 
tager imod indtastning. A er 
afstanden mellem duellan¬ 
terne, B antallet af patroner i 
din revolver, og C antallet i 
modstanderens. Linje 1 giver 
disse variabler deres oprinde¬ 
lige værdi og præsenterer 
spilleren for spillet. 

I linje 2 starter spillet med at 
formindske alstanden med 1. 
Duellanterne nærmer sig hin¬ 
anden og venter på, at en af 
parterne skal trække. Hvis af¬ 
standen bliver 0 uden noget 
dødsfald, må man gå ud fra 
en fredsslutning. Denne situa¬ 
tion kan undertiden opstå, 
når begge har tømt deres re¬ 
volver uden at ramme mod¬ 
standeren. 

I linje 3 får vi situationen på 
skærmen. Vi får afstanden at 
vide i meter, og hvor mange 
skud vi har tilbage. Modstan¬ 
derens patronbeholdning må 
vi selvfølgelig selv holde 
regnskab med. Hvis B=0, 
kan vi al gode gmnde ikke 
skyde, og den følgende del 
af programmet, linje 4,5 og 6 
er overflødige og springes 
over. 

I modsat fald bliver vi spurgt, 
om vi har lyst til at vove et 
skud på den opgivne af¬ 
stand. Hvis ikke. springer vi li¬ 
geledes videre. Hvis ja, mister 
vi en patron (B=B-1) og får at 
vide, at vi har skudt. 

Herefter har vi det kryptiske 
"EF RND(1)> A/100 THEN PRIN 
.. ." Som vi ved, er dette tal 
mellem 0 og 1. 

Nu stilles 
betingelserne 

Lad os nu forestille os, at af¬ 


standen er 50 meter. Vi får 
nu. at vores tilfældige rand¬ 
omtal skal være større end 
50/100, altså større end 0.5. 

Det vil det være i cirka halv¬ 
delen af tilfældene (der er li¬ 
ge mange muligheder over 
og under), og vores chancer 
for at ramme er altså fifty-fifty. 

La os imidlertid sige. at af¬ 
standen er 90. Nu skal det til¬ 
fældige tal være over 0.9, 
hvad det givetvis kun er i 10% 
al tilfældene. Omvendt kan 
vi næsten ikke undgå at ram¬ 
me på afstand 10, RND(l)skal 
så blot være over 0.1. 

Resultat: Jo større afstand, de¬ 
sto mindre chance for at ram¬ 
me. Eller anderledes udtrykt - 
jo længere vi venter, desto 
større chancer har vi for at 
ramme, men jo større chance 
er der selvfølgelig også for, at 
modstanderen skyder først. Et 
uhyre primitivt, men dog 
''strategisk" spil og en ''reali¬ 
stisk" simulation. 

Hvis betingelsen i 5 ikke er 
opfyldt, ryger vi ned i 6, vi 
ramte forbi. Nu er det Billys 
tur. Han ved selvfølgelig og¬ 
så, at han skal vente, men ik¬ 
ke for længe, hvorfor (som du 
vil kunne regne efter) sand¬ 
synligheden for, at han sky¬ 
der, er tilsvarende afhængig 
af afstanden. Er han ikke til¬ 
freds med oddsene, eller (OR) 
der simpelt hen ikke er flere 
patroner i hans revolver, 

''venter han roligt". 

I modsat fald skyder han. og 
sandsynligheden for at ram¬ 
me afhænger igen af afstan¬ 
den. Vi kan gøre ham til en 
bedre skytte end os selv ed at ^ 
udskifte 100 med f.eks. 125. 
men i vores eksempel er vi li- r 
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ge gode. Skyder Billy forbi, ry¬ 
ger vi tilbage til 2 og rykker 
endnu en meter nærmere. 


Rammer han, nåja .. . 


2 B=INT<RNDU>*9>+1 : IF R<B>«1 THEN 2 

3 fl$<fl>-STR$<B> : fi(B) s l : IF A<9 THEN 1 

4 PRINT PRINT FOR fi»l TO SPRINT R*(fl); NEXTOC+l :PRINTPRINT:PR1NT"FORSØO" C » 

5 INPUT"VENB";fl IF (K2 OR A>9 THEN PRINT 00T0I 

6 FOR B=1 TO fl : B*<B) a A*(A-B+l) HEXTFOR B*1 TO fl R*<B>=B*<B) NEXT 

7 FOR fi*l TO 9 -IF Va.(f»<fl»OR THEN 4 

8 NEXT : PRINT : FOR fi=l TO 9 : PRINT fi»<A>, NEXT PRINT 

9 NEXT PRINT FOR A-l TO 9 : PRINT At<R>, NEXTPRINT 


Vi kan til en begyndelse køre 
det. Vi tår opgivet en talræk¬ 
ke, lad os sige 

218596743 

eller tallene 1-9 i vilkårlig 
rækkefølge. Vores opgave er 
nu at sætte dem i nummeror¬ 
den i så få forsøg som muligt. 
Pointen er, at vi kan få vendt 
et hvilket som helst antal cifre 
regnet fra venstre pr. om¬ 
gang. På maskinens spørgs¬ 
mål VEND? kan vi således 
svare 5 og få den ny talræk¬ 
ke 

958126743 

Siger vi nu i næste omgang 9, 
har vi i hvertfald fået nitallet 


på plads. Det hele kan udfø¬ 
res ret mekanisk, men der 
kan også skydes genveje. Et 
næste træk på 4 ville måske 
ikke være så dårligt? Men 
hvor få omgange kan vi rent 
faktisk komme ned på? 

Spil af denne type kan der 
naturligvis laves et ubegræn¬ 
set antal af. Lad os se lidt på, 
hvordan dette her virker. 

De første 3 linjer har at gøre 
med at lave den tilfældige 
talrække. Pointen er, at hvert 
ciffer får en ekstra værdi, der 
bliver til 1, når cifferet er 
"brugt" - vi skal jo ikke have 
noget ciffer to gange. 

4 printer den aktuelle talræk¬ 
ke ud og holder regnskab 
med, hvor mange forsøg vi 
bruger. 5 spørger, hvor man¬ 


ge, og 6 udfører selve "ven¬ 
dingen". 7 checker i hver 
omgang, om opgaven er 
løst, mens 8 (som en særlig til¬ 
fredsstillelse for os) printer den 
ordnede talrække ud. 

Dette eksempel er lidt van¬ 
skeligere end det foregåen¬ 
de, men hvis du kigger grun¬ 
digt på hver linje, er det til at 
finde ud af selv for begynde¬ 
ren. Når cifrene laves om til 
strenge, er det udelukkende, 
fordi tal har en tilbøjelighed til 
at fylde en del på skærmen. 


Mød Billy i 
en labyrint 

Adventure-spil er underhol¬ 
dende og ikke så svære at la¬ 
ve. Du kunne have mødt Bil¬ 
ly the Kid (eller en hel horde 
desperados) i en labyrint 
(western-by). I sin simpleste 
form består en sådan labyrint 
af PRINT-linjer. der beskriver 
de enkelte rum, med GOTO 
imellem. På den anden side 
kan ganske få linjer blive til et 
underholdende spil. Prøv 
f.eks. 


1 H*=ft*tCHR$<INT<RND<l>*lø>*48>:fi=fHl:PRINT PRINT f» FOR B=1 TO R* 100 NEXT 

2 PRINT “H"; INPUT "Tfil",8* IF R*»B* THEN 1 

3 PRINTPRINT "NEJ- " R4PRINT PRINT R»løø "POINTS" 



Kør programmet, og du bliver 
præsenteret for et enkelt cif¬ 
fer, som straks efter forsvinder. 
Hvad var tallet? Klarer du det, 
bliver tallet tocifret, og såle¬ 
des videre, indtil du husker 
forkert, hvorefter spillet slutter, 
og du får et pointsantal. 
PRINT h" betyder simpelt 
hen, at skærmen slettes (på 
VIC og 64). En Texas vil have 
CALL CLEAR, Sinclair slet og 
retCLS.D 

Erwin Neutzsky- Wulff 


Vigtigt tip 

■ Vi får ofte henvendelser fra 
læsere, der ikke kan tyde de 
inverse tegn på Commodore 
programmer. 

I de fleste tilfælde bruges dis¬ 
se tegn udelukkende til at far¬ 
ve teksten eller printe den 


pænere ud på skærmen. De 
kan derfor ofte undværes, da 
de ikke betyder noget for sel¬ 
ve programmets kørsel. 
Bemærk dog, at tegnene in¬ 
verse hjerter og inverse S skal 
bruges altid.□ 


I næste nummer af "Soft”, vil samtlige Commodore 64 ud- 
listninger være forsynet med informationer i stedet for et in¬ 
verse tegn. 



fl flflfl CURSOR NED" 

□ CXn CURSOR OP” 

a aaa cursor hojre 

II IBM CURSOR VENSTRE 
■ ■■■ CTRL 1 

a aaa ctrl s 
y wm ctrl 3 

L kLW CTRL 4 


B **1 CTRL 5 
U MUU CTRL 6 

a aaa ctrl ? 

□ Kim ctrl s 
a aaa ctrl s 

■ — CTRL 0" 

3 COMMODORE 1 
R RHE COMMODORE 2 


O OHO COMMODORE 3 
H KEHI COMMODORE 4 

3 ■£££ COMMODORE 5 
■I IBW COMMODORE 6 
3 LCU COMMODORE 7 
:: MSB COMMODORE 8 
J LUJ CLR TASTEN 

a aaa home tasten 

« IBM I NST TASTEN 
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Stjernejæger 


10 DIM ASC2.-,8«2 ',C*C2> 

2ø 'stjernej*9er 
30 GOSUB S?ø 

4ø F=ø TR*ø BZ= 10500 • SK=38 • BORDER F 
"3 INK ø,ø INK 1,15 INK 2,9 INK 3,1 


110 C*<1 )*" “+CHR« 213 )+CHR*C 208 )*CHR«208HCHR«212 >+" « 

120 C« 2 >=" "+CHRSC 214 HCHR« 210 HCHR« 210 HCHR« 215 H" “ 

130 LOCflTE 1. 1PEN 1 PRINT STRING*!40,127) LOCATE 1.20 PRINT STRING*!4ø,127) 
140 FOR N=2 TO 19 LOCflTE 1,N PEN 1 PRINT CHR«127, LOCflTE 40,N- PRINT CHR*C127 . 
EXT 

150 EVERY 100,0 G0SU8 460•• REM BENZIN 
160 'HOVEDPROGRAM 

;=INTC33*RNDH2YX=INTC 16*RND H3' F1 *=fl*c 1) F2*=A« 2> 

--, /YS j,pE H 2'PRINT Fl* LOCflTE XX,YX-1 PRINT F2«> GOSUB 510 

3 THEN GOSUB 520 


XX+6,YX-i PH 


180 LOCflTE X 
190 IF INKEY 
200 GOSUB 260 

210 IF INKEYC @ )*ø THEN 8=4 GOSUB 3 
220 IF INKEY!1 )=0 THEN B=1 GOSUB 2 
INT” "LOCflTE XX+6,YX+1 PRINT" 

230 1“ -- -- • - 

240 I 
INT" 

250 El'DI GOTO 180 
260 'BEVflEG FJENDE 
270 B=INTCRND*6H1 

280 IF 8=1 THEN XX=XX-1IF X7.<3 THEN XX=3RETURN 
290 IF 8=2 THEN XX-XX+1'IF XX >33 THEN XX=33 * RETURN 

300 IF 8=3 THEN YX»YX-1 ■ LOCflTE XX,YX+1 PRINT " " IF YX<3 THEN YX=3'RETURN 

310 IF B=4 THEH YX=YX+1 LOCflTE XX,YX-2PRINT ” " ' IF YX>18 THEN YX=18 RETURN 

320 IF B=5 AND F1*=H»( 1> THEN F1*=B*<1 )=F2*=B*C2 ) RETURN 

330 IF 8=5 AND F1*=B*< 1 ", THEN F1*=C*C 1 >'F2*=C« 2 >■ RETURN 

340 IF 8*6 AND F1*=C*<1> THEN F1*=B*<1> F2*=B«2> RETURN 

350 IF 8=6 AND F1*=B« 1 > THEN F1*=R»<1> F2*=R*<2 > = RETURN 

360 RETURN 

370 STOP 

380 'EKSPLOSION 

390 ENV 1,15,-1,10 

400 SOUND 2,0,150,0,1,0,15 

410 LOCflTE XX+3.YXPEN 1 PRINT CHR« 238 >' FOR N=ø TO 50'NEXT 

420 LOCflTE XX,YX'PRINT STRING«6,207> LOCflTE XX-YX-1 PRINT STRING«6,207>'FCR N= 
0 TO 200'NEXT 

430 LOCflTE XX,YX'PRINT STRING«6,32>L0CATE XX,YX-1 PRINT STRING«6,32> 

440 F«F+1<BORDER F MOD 32'RELEflSE 7 
450 R=1 RETURN 
460 'BENZIN 

470 LOCflTE 1,22 PEN 3 = PRINT"8ENZIN'"i USINC"###*#”,BZ 
480 IF BZ =0 THEN U=REMAINCø>GOTO 660 
490 BZ=BZ-100 
500 RETURN 

510 MOVE 304,204 DRflW 304,236,3'DRflW 336,236,3 DRAW 336,204,3'DRflW 304,204,3'RET 
URN 

520 'SKUD 

530 MOVE 17,98 DRflW 320,220,3 MOVE 623,98 DRflW 320,220,3 
540 MOVE 17,98 DRflW 320,220,0 MOVE 623,98 DRflW 320,220,0 
550 SOUND 1,50,10,7,0,10 

560 IF (16<XX AND XX<20> AND <YX»U OR YX=12> THEN TR=TR+1' LOCflTE 20.22PEN 3'PR 
INT"RAMT'";TR GOSUB 380 

570 SK»SK-1'LOCflTE 30,22’PEN 3'PRINT”SKUD' ";USING"##";SK' IF SK=ø THEH R=0 U=REMfl 
INCø> GOTO 610 

580 IF R=1 THEN R«0 GOTO 170 
590 RETURN 
6øø SPIL SLUT 

610 LOCflTE 1,23'PEN 1 PRINT"DU HflR IKKE FLERE SKUD." 

620 PRINT "VIL DU PRØVE IGEN7CJ/N)" 

630 IF INKEYC 45)=ø THEN CLS GOTO 4ø 

640 IF INKEYC46>=ø THEN CLS PRINT"TflK FOR DENNE GANG 1" RESTORE GOSUB 790'FOR N=ø 
TO 5øø NEXT END 
650 GOTO 630 

660 LOCflTE 1,23'PEN 1PRINT"DU HflR IKKE MERE BENZIN'" GOTO 620 
670 'TITELSIDE 

680 MODE O BORDER 15'INK 0,0 INK 1,21 
690 LOCflTE l,l'PRINT”****STJERNEJftGER*:rø" 

700 PRINT STRING«20,127>PRIHT"flF HANS WINTHER" 

710 GOSUB 790 

720 PRINT"DU EP I EN STJERNE- JAGER OG SKAL FORS- VARE DIT MODERSKIB MOD FREMME 
DE." 

730 PRINT PRINT"DU STYRER DIN JAGER MED CURSOR-TASTERNE OG SKYDER MED MEL- LEMR 
UMS-TftSTEN." 

740 PRINT"HELD OG LYKKE!” 

750 PRINT"TRYK PAA 'COPY'" 

760 IF INKEYC9>=0 THEN GOTO 7Sø 

770 RESTORE GOSUB 798 GOTO 760 

780 MODE 1 ! GOTO 40 

79ø READ note,dur 

880 IF N0TE=9999 THEN RETURN 

81ø SOUND 1,note,dur,15 

820 GOTO 790 

830 DATA 478,50,319.50,358,13,379,13-426-13.239,60,319,60,358,13-379,1 3,426-I 3,2 
39,60-319.60,358.15,379,15,353,15,426,70,9999,9999 



■ Jorden bliver angrebet al 
fremmede rumskibe. Din op¬ 
gave er selvfølgelig at forsva¬ 
re hjemplaneten. 

Du sidder i din Starhunter og 
kigger ud gennem lasersigtet. 
Det gælder om at skyde så 
mange fremmede skibe ned 
som muligt. Du styrer jageren 
med cursort asterne og skyder 
med mellemrumstangen¬ 
ten. □ 

Hans Winther 
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Hvad? 

EhDollah? 

Hvem? 


EhDollah er navnet på både 
Goldstars nye adventure og 
byen som eventyret drejer sig 
om. Engang var EhDollah 
(byen), konger og kejseres til¬ 
holdssted, men etter krigen 
med den grådige "Sur-føde¬ 
ration" , er byen faldet totalt i 
ruiner, og kun et menneske 
lever stadig i resterne. 

Dette menneske er den onde 
troldmand Meglin, der før kri¬ 


gen var god og passede på 
EhDollahs dyrebareste skat, - 
rubinen der kan forvandle al¬ 
le metaller til guld (de vises 
sten). 

Under krigen blev Meglin 
vanvittig, og nu har han til¬ 
kaldt en horde af fabeldyr til 
at forsvare rubinen. Spilleren 
skal kæmpe sig igennem by¬ 
en, slå Meglin ihjel, og slippe 
ud igen. 

Goldstar reklamerer med, at 
der bruges en helt ny teRnik, 
hvor man ikke som normalt i 
adventures, møder et uhyre 
og dræber det eller bliver 
dræbt. Det er også sandt, for¬ 



di man ved mødet kan væl¬ 
ge mellem at flygte eller slås. 
Hvis man vælger at slås, kan 
der ske to ting, - enten ram¬ 
mer man eller også rammer 
uhyret. Wauw. 

Ligefrem at kalde det for 
' 'real-time combat'' er måske 
lidt overdrevet. Til EhDollahs 
ros skal siges, at det ikke altid 
er det samme, der sker på de 
forskellige steder i spillet Eh¬ 
Dollah er udelukkende tekst. 
Nul grafik og nul lyd. Spillet er 
også ret let selv om Goldstar 
påstår det modsatte. 

Det er måske en fordel, for ta¬ 
ler man engelsk er EhDollah 


et ganske udmærket' første- 
adventure". (CBS). 


Grafik: lr“-“ 

LY?/ fifi 


Action: {___ 
Fængslende: 
Pris/kvalitet: 


/tmm 



Sure løg 

I Roland goes Digging skal 
du grave huller, som nogen 
levende løg kan falde ned i. 
Så snart løget er dumpet i, 
skal man skynde sig at dæk¬ 
ke hullet til med sin spade. 
Hvis man ikke når det, kom¬ 
mer løget op igen, frygtelig 
rød af vrede. Det vil så direk¬ 
te jage én, op og ned ad 
trapper. Eneste redning er at 
grave to huller under hinan¬ 
den, så det sure løg kan falde 
to etager ned. for det kan det 
nemlig ikke tåle. Mens alt 
dette foregår falder iltmæng¬ 


den støt og roligt, og man skal 
nå at putte alle løg i jorden, 
før ilten er udtømt. 

Spillets grafik er elendig, 
grove tegninger og grimme 
farver. Lyden er om muligt 
værre, men den kan man 
dog slukke for. Spændingen i 
spillet modsvarer stort set 
spændingen ved at grave 
løg ned i sin egen have. Så 
sådan set er det et ret realistisk 
spil. (Twilight). 

Grafik: 7 

Lyd: 6 

Action: 7 

Spænding: 6 

Pris/kvalitet: 6 


Rumkuller 
til lavpris 


1985 har ikke noget med års¬ 
tallet at gøre, som vi befinder 
os i netop nu. Hvad tallet skal 
henføre til er lidt usikkert, men 
i hvert fald er det titlen på Ma- 
stertronics nyeste produkt. Et 
rumspil efter klassisk mønster, 
der kun vinder i vores gunst, 
fordi det er meget billigt. 
1985 er joystick kontrolleret 
og minder i styring meget om 


velkendte Lunar Lander. Du 
skal besøge forskellige plane¬ 
ter med dit rumskib, tanke op 
fra små lilla depoter og snørk¬ 
le dig igennem rumlabyrin- 


1985 er et udmærket spil for 
begyndere. Undervejs i uni¬ 
verset besøger du 8 forskellige 
planeter, inden du hopper vi¬ 
dere til næste sværhedsgrad. 
(Supersoft). 

Grafik: 7 

Lyd: 6 

Spænding: 8 

Pris/kvalitet: 13 
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Konkurrence 
for McEnroe 

Matchpoints er lige netop, 
hvad du lår, hvis du kan be¬ 
gå dig i Psions usædvanlig 
flotte sportsspil ai samme 
navn. Det er tennis, det hele 
drejer sig om. Ovenikøbet i 
en udgave, som slår alt, 
hvad vi hidtil har set i genren. 
Matchpoint har været på 
markedet i et lille stykke tid, 
men spillet er så godt, at vi 
simpelt hen ikke kunne lade 
være med at anmelde det. 
Matchpoint er ikke blot et fas¬ 
cinerende tennisspil. Pro¬ 
grammet kan udmærket bru¬ 


ges som kursus udi John 
McEnroe sporten. Spilleren ser 
nemlig på en meget livagtig 
måde. hvordan ketsjeren 
skal holdes i alle mulige sne¬ 
dige slag - underskruning, 
overskrue, sideskrue, smash 
osv. 

Matchpoint har en rimelig 
god graflk, og lyden er be¬ 
stemt ikke at prale af. Til gen¬ 
gæld er spændingen meget 
større end i markedets øvrige 
sportsspil. 

Du kan vælge mellem at spil¬ 
le mod computeren eller 



mod en kammerat. Normalt 
skal man starte i indledende 
kampe for at fortsætte i semi- 
finaler og helt frem til de store 
finale. Med lidt fingerfærdig¬ 
hed kan du dog direkte pla¬ 
cere dig mellem de sidste to i 
turneringen. Pointsgivningen 
er præcis som i rigtig tennis. 


(Twilight). 

Grafik: 9 

Lyd: 6 

Spænding: 13 

Pris/kvalitet: 10 


I elektronik 
helvede 


■ For meget længe siden, i 
en galaxe langt langt væk, 
lå planeten Guon, der beher- 
skedes af den onde kejserro¬ 
bot. 

I Psytraxx er du en mikro- 
robot der skal trænge gen¬ 
nem kejserens elektroniske 
kredsløb for at nå frem til 
hans CPU (hjernen i enhver 
computer) og ødelægge 
den. 

Undervejs bliver du angrebet 
af alt lige fra kondensatorer 
og transistorer til blinkende 
lysdioder. Heldigvis har du en 
lille kanon, der skal lades op 
med de batterier, du finder 
undervejs. 

Fabrikanten hævder, at der 
er mere end 1000 skærme at 
udforske, og dette går natur¬ 
ligvis ud over detaljerne. 
Hvert mm er en lille labyrint 
al printbaner besat med for¬ 
skellige komponenter, som 
du ikke må ramme. Det gæl¬ 
der om at finde de forskellige 
adgangskort, så du kan kom¬ 
me ind til selve CPU'en. 
Psytraxx kræver ikke den 
helt store hjemevirksomhed, 
men det må være op til den 
enkelte at afgøre, om dette 
taler for eller imod spillet. Spil¬ 
let er ret ensformigt, men er 
utvivlsomt et udmærket alter¬ 
nativ til sovepiller. (Twilight)D 


Grafik: 

Lyd: 

Action: 

Pris/kvalitet: 





Udforsk 

tiden 


Nu har du chancen for at se, 
hvordan jorden var i fortiden 
og hvordan vi vil få det i 
fremtiden. Det er i hvert fald 
den ydre ramme i Roland in 
Time fra Amsoft. 

Eller med Amsofts egne ord: 
Roland er strandet på jorden, 
og skal nu søge hele dens for¬ 
tid og fremtid igennem efter 
krystaller til hans ødelagte 
Anti-Matter Space-Time Run- 
A-rounD. Der er 98 tidszoner 
med hver op til 9 underzoner 
ialt 53 scener, der skal søges 
igennem. 

Undervejs vil du støde på de 
mærkeligste dyr, hvis eneste 
fællestræk er, at de dræber 
dig hvis du kommer for nær. 
For at komme igennem alle 
de scener der er i hver enkelt 
tidszone skal du ofte foretage 
de mærkeligste kmmspring 
og finde usynlige hemmelige 
gange. 

Roland in Time ser mistæn¬ 
keligt ud til at være inspireret 
af Manic Miner. Men spillet er 
selvstændigt og godt lavet. 
Det varer MEGET længe før 
man bliver træt al at søge 
igennem scenerne. 
Grafikken er ret god, hurtige 
sprites, farver og andre effek¬ 
ter. Lyden er elendig. Det 
eneste gode man kan sige 
om den, er, at den kan slås 
fra! Selve spillet er som anty¬ 
det fremragende. (Twilight). 



Grafik: 

Action: 

Spænding: 

Pris/kvalitet: 
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Cirkus¬ 

artister 


En af de flittigste producenter 
af MSX-programmer er ja¬ 
panske Konami. I Circus 
Charlie styrer du klovnen 
Charlie, som skal underholde 
publikum bedst muligt ved at 
udføre 5 mere eller mindre 
halsbrækkende cirkusnum- 
re. Først skal du springe gen¬ 
nem brændende ringe, 
mens du rider på en dresseret 
cirkusløve. Pas på de små 
bål, der er tændt i manegen. 
Dem skal du springe over. 
Når du er nået gennem hele 
banen skal du til at gå på li¬ 
ne. Det lyder måske nemt, 
men du skal passe på aber¬ 
ne: Hvis de rammer dig falder 
du ned. Herefter skal du ba¬ 
lancere på nogle store bolde, 
ride på cirkushest og hoppe 


■ Tony Crowther. der sidst vi¬ 
ste os den perfekte efterlig¬ 
ning af Suicide Express med 
Black Thunder, kommer her 
ihvertfald med noget nyt. 
Gryphon hedder spillet og 
handler om en lille griffin. Et 
væsen fra et drømmeland 
fjernt væk fra storbyernes støj 
og os Gryphon ligger og 
drømmer, da han bliver 
vækket brat af forstyrrende 
små spøgelser. Det var dog 


Hekse¬ 

kunster 


fra trapez til trapez. Du kan få 
Charlie til at bevæge sig frem 
eller tilbage og hoppe, og det 
gælder hele tiden om at ha¬ 
ve timingen i orden. Ellers fal¬ 
der du ustandselig på halen. 
Circus Charlie er let forståe¬ 
ligt og ublodigt, og vil derfor 
først og fremmest henvende 
sig til de yngste. Grafik og lyd 
kan ikke måle sig med de 
bedste spil, men virker dog 
ganske overbevisende, idet 
der er gjort udstrakt brug af 
sprites. En god detalje er, at 
du, når du har mistet din sid¬ 
ste Charlie, kan starte et nyt 
spil med at udføre det samme 
nummer, som du sidst arbej¬ 
dede med. Du behøver altså 
ikke starte forfra ved hvert nyt 
spil. (Twilight). 

Grafik: | 9 

K MSX I 8 

Action: 3 8 

Pris/kvalitet: 8 


pokkers! - Nå. men jeg må 
hellere se og finde min rede i 
stedet for at ligge her ude i 
skoven og sove hele livet 
væk. 

Men - intet er som før, pludse¬ 
lig er der spøgelser overalt. De 
flagrer hen over hovedet på 
Gryphon, der med mystiske 
krumspring må forsøge at 
undgå dem. Men forsøge sig 
til vands er heller ikke muligt. 
Vandet er nemlig blevet for¬ 
vandlet til den rene gift. 
Gryphon er foruden sine fire 
ben forsynet med et sæt vin¬ 
ger. 

Disse vinger kan kun bære. 


■ Har du nogensinde prøvet 
at flyve rundt i luften, lande 
på heksekedler eller prøvet at 
kæmpe mod kranier og mu¬ 
mier? - Hvis ikke skal du 
prøve at spille Sorcery. 
Sorcery findes til både Spec¬ 
trum, Commodore. Amstrad 
og MSX systemet. Vi har speci¬ 
elt kikket nærmere på Spec¬ 
trum og Commodore udga¬ 
ven og viser skærmbilleder 
fra disse to. 

Spectrum udgaven er en 
meget skrabet udgave, hvor 
du kun har 15 skærme til hele 
spillet. Spillet kan med lidt 


held gennemføres på meget 
kort tid, og vil ikke motivere 
en garvet spiller til at fortsætte 
med det, når først spillet én 
gang er kørt til ende. 
Sprittene er ikke særligt vel¬ 
lykkede. og især mumie¬ 
spritten er grim. Lydsiden må 
betegnes som direkte ubeha¬ 
gelig og spændingen må 
man lede længe efter. Com¬ 
modore udgaven har 17 
skærme, flot grafik nogenlun¬ 
de lyd og flotte sprites. Især 
det flyvende spøgelse. Svær¬ 
hedsgraden er lidt større end 
på Spectrum, idet energien 
og tidsfaktoren tilsammen er 
sat så snævert, at man næ¬ 
sten aldrig kommer igennem. 
Selv forskellige joystick-ekvili- 
brister havde problemer med 
at klare mere end 12 af de 17 
skærme. 
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såfremt han har rigeligt med 
tilløb først. Når Giyphoner "in 
the air" kan han så kaste di¬ 
verse forbandelser i hovedet 
på de omkringflyvende spø¬ 
gelser. 

Hvis Gryphon får kontakt med 
et spøgelse, dør han øjeblik¬ 
keligt . Gryphons opgave er at 
medbringe en guldbarre fra 
skoven til at plumpe i det for¬ 
giftede vand for derved at la¬ 
ve en sti til reden. 

Efter vejen er klar til reden, 
kan Gryphon hvile lidt i re¬ 
den, før turen går videre til 
næste trin, der er en helt ny 
verden af huse og bygninger. 
Sidste level foregår i tusmørke- 
landet, hvor døden lurer alle 
vegne. 

Spillets originalitet er der den¬ 
ne gang ingen tvivl om, og 
Quicksilva kan uden slinger i 
valsen kalde deres Gryphon 
for en nyhed. Grafikken i spil¬ 
let er fantastisk flot, og hvis du 
er i besiddelse af Currah Mi¬ 
cro Speech får du sjove be¬ 
mærkninger med på vejen. 
(CBS). 

Grafik: commo I 11 

Lyd: “S? 9 10 

Action: iq 

Fængslende: 9 

Pris/kvalitet: 10 


Ideen er den samme, nemlig 
at tage en nøgle og bevæge 
sig til Stone Henge (en kendt 
bunke sten i England) og løse 
mysteriet. 

Amstrad-udgaven må være 
Virgins næste mål, for her er 
spillet forsynet med hele 40 
skærme, god grafik, bedre 
lyd og selvfølgelig større svær¬ 
hedsgrad og afveksling. 

MSX udgaven overgår Am- 
strad, idet du her har 50 - 
halvtreds skærme. Hver 
skærm er dog ikke så detalje¬ 
ret som f .eks. Commodore og 
Amstrad. men er heller ikke 
på nogen måde dårlig. Ideen 
med Sorcery er ikke noget 
nyt, men kan alligevel anbe¬ 
fales nye computerejere, der 
ikke har spillet så mange spil 
før, og derfor ikke gennemfø¬ 
rer spillet så hurtigt. (CBS). 


Slappe 

kattetarme 


■ Ja, kattetarme er jo be¬ 
kendt noget man benytter til 
ketschere, og i dette tilfælde 
tennisketschere. 

Hvis man har prøvet Psions 
Matchpoint-tennisspillet for 
eliten, bliver man uden tvivl 
enormt skuffet, når man prø¬ 
ver On Court Tennis fra Acti- 
vision. 

Activision plejer jo ellers at le¬ 
vere kvalitetsspil, men er den¬ 
ne gang skudt langt langt for¬ 
bi. 

On Court Tennis virker meget 
levende, og ser ved første øje¬ 
kast ud til at være endnu et 
fint produkt. Men snart opda¬ 
ger man, at sceneriet trods 
den flotte opsætning ikke rig¬ 
tig kan bruges til noget. 

Du kan vælge at spille mod 
computeren eller mod din 
kammerat. Hvis du spiller 
mod computeren, har du sim¬ 
pelthen ikke en jordisk chan¬ 
ce. Hvis du spiller mod din 
kammerat, og han med møje 
og besvær finder ud af, hvor¬ 
dan man skal bringe bolden 
over på den anden side af 

Sorcery til Commodore 64 
tlotte sprites og supergrafik 



nettet, kan du næppe retur¬ 
nere bolden 9 ud af 10 gange. 
Så selve konkurrencen i spillet 
er bare lig med nul - zero - 
nothing. 

Styringen af On Court Tennis 

foregår selvfølgelig med joy- 
stick. Men du skal ikke bevæ¬ 
ge din spiller på banen, men 
derimod kun koncentrere dig 
om det rette salg. Slagene 
kan ifølge instruktionsheltet 
foregå efter alle kunstens reg¬ 
ler hvor 75 pct. af dem går i 
nettet. Du kan sideskrue, over¬ 
skrue, underskrue samt sma- 
sche i serven. 

Belægningen du kan spille 


på er grus. asfalt eller græs og 
forskellen er ens (som de siger 
vestpå). 

Grafikken i On Court Tennis 

er livagtig, men ikke perfekt. 
Figurerne er pæne, men re¬ 
sten er kedeligt. Lydsiden er li¬ 
gesom i Matchpoint ret beske¬ 
den. Hvilken lyd skulle man 
også finde på til tennis. Spæn¬ 
dingen er som sagt næppe 
værd at omtale. (CBS). 

Grafik: li--|j| 8 

Lyd: °SSP 1 6 

Action: I ]3| 8 

Fængslende: 5 

Pris/kvalitet: 6 
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Spectrum-udgaven med sine 
mindre pæne sprites. 


Grafik: 

Lyd: 

Action: 

Fængslende: 

Pris/kvalitet: 


C 64 Spectrum Amstrad MSX 
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PROGRAMMØRER 
TIL SOFT 


Her på "SOFT" og "Alt om udllstning. Programmer 
Data’' søger vi hele tiden et- uden medsendt lagermedie 
ter nye og spændende pro- kan ikke bearbe)des al re- 
grammer til alle gængse daktion og får derfor ikke 
computertyper. Lige fra små chance for at komme i bla- 
smarte rutiner, over spil til det. 

seriøse brugerprogrammer. Af praktiske grunde beder vi 
Alle offentliggjorte program- om, at du vedlægger en 
mer belønnes med op til Irankeret returkuvert med ty- 
1000 skattefri kroner, der ud- delig adresseangivelse. 
betales kort efter at bladet er VI glæder os til, at du kontak- 
udkommet. te os. Send programmerne 

Indsend dit/dine program- til "Alt om Data", St. Kon- 
mer på kassettebånd, dl- gensgade 72, 1264 Køben- 
skette eller mikrodrive og hcrvnK. ruwruuvi*, 

vedlæg beskrivelse og gerne S Æ 

































■ Her er så et computer-styret skal udtages 3 heste, hvis det 
DERBY-spil til Commodore 64. er muligt. Syge heste kan ik- 
I spillet kan du både komme ke udtages. Efter hvert løb 
ud for sygdom blandt hestene forelægger computeren et 
og økonomiske problemer. regnskab med udgifter, ind- 
Reglerne er kort: Til hvert løb tægter og den samlede ba- 
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Hvis spillerens økonomi 
skranter for meget, kan spille¬ 
ren optage et lån, men der 
må selvfølgelig betales ren¬ 
ter. Nær sæsonen er færdig 


udbetales en sæsonbonus, 
alt efter hvor mange løb spil¬ 
leren har vundet. Vinderen 
får et kys af Dronning Margre¬ 
the. Woww ... □ 

Anders Møller Sørensen 
















































































Fakultet 



I dette Commodore 64 mate¬ 
matik program får du bereg¬ 
net fakultet af et stort tal. Prog¬ 
rammet benytter sig af logarit¬ 
mer til beregningen. 

I linie 70 defineres titals logarit¬ 
men, som ikke findes som 
standard funktion på de fleste 
computere. 

Linierne 80 og 90 nulstiller de 
variabler, som bruges til at 
summere de beregnede tal . I 


linierne fra 100 til 140 indtastes 
og undersøges det tal, som fa¬ 
kultet ønskes beregnet af. 
Hovedløkken ligger fra 200 til 
240. Den beregnede værdi 
omskrives og udskrives i linie 
300 til 410. Fejludskrifterne lig¬ 
ger fra 1000 til 2000. 
Programmet kan let omskri¬ 
ves til andre maskiner.□ 

Torben Bang 


Amrace 


■ Amrace er et racerbilsspil 
for to kørere. Kører 1 styrer 
med X og Z, accelererer med 
C og bremser med V. Kører 2 
styrer med . og , accelererer 
med / og bremser med \ . 
Hver gang man har kørt en 
omgang, får man et point. 
Hvis man kører ind i kanten, 
skal man starte forfra. Selve 
kørslen foregår meget mere 
naturtro end sædvanligt da 
bilerne udnytter Amstrads 
mulighed for at køre fra pixel 
til pixel. I stedet for det sæd¬ 
vanlige - et tegn eller 8 pixel. 
□ 

Claus Thorsen 



2. del 



10 PRINT'J": REM *** SLET SKÆRM *** 

20 PRINT 
30 PRINT 

40 PRINT" FAKULTET MED STORE TAL" 

50 PRINT 
60 PRINT 

70 OEF FN LlO<X>-LOG<X)/'L0G< 10> 

80 EXSUM=0 
30 MANSUM=0 

100 INPUT" INDTAST N ";N* 

110 1F N#=“STOP" THEN EN0 
120 N=VAL<N*> 

130 IF N < 0 THEN 1000 
140 IF NO INT< N> THEN 2000 
150 PRINT 

160 PRINT ” TAL OK BEREGNINGEN BEGYNDER NU“ 
170 PRINT 

180 PRINT" VENT ET ØJEBLIK* 

200 FOR X - 1 TO N 
210 L * FN L10CX) 

220 EXSUM*EXSUM+INT< L) 

230 MANSUM=MANSUM+L-INT<L> 

240 NEXT X 

300 EX= EXSUM+INT< MANSUM) 

310 MAN=10t<MANSUM-INT<MANSUM)> 

320 MAN*< INT< MAN*10000+0.5)>/10000 
400 PRINT 

410 PRINTN;"FAKULTET = ";MAN;" E ";EX 
500 G0T05O 
1000 PRINT 

1010 PRINT" ULOVLIG VÆRD I N SKAL VÆRE POS." 
1020 GOT050 
2000 PRINT 

2010 PRINT” ULOVLIG VÆRDI N SKAL VÆRE HELTAL" 
2020 G0T050 



470 9.*<. 2 )= 

'0.7.'/. 7. 7.7.7. 7. 

'0.7.7. 7.7. 7.7.7.7.77.7. 7.7. 

70.7.7. 

43ø aK3 ) s 

" 7,7.7, 7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7;7.7.7.700i7.7; 

7.7.7. 7.7.7.7.700.7.7.7. 7.7.7000000. 

7.7.7. 7.70.7.7.7:7. 

7.7.7. 7.700:7.7. 

4*9ø 3.$<. 4 )= 

" 7.7. 7.70.7.7. 

7.7.7. 70.7:7: 

70:7.7. 7,7. 

7.700.70. 7.7.7,7.7,7.7:7:7.70:700. 



5øø a*<5)= 

7.7.7.7.7.7:70 
7.7.7,7.7.7.7.70 
7.7.7.7:7.7.7.7.700:7.7.70.7.7.7.7.: 
7:7.7.7.7.7.7.7.7.7:7.7.7.7.7.7.7.7:70 



51ø CLS 

52ø PEN 1 FOR x=l TO 5 PRINT ?.$< x > 
53ø RETURN 





i : NEXT 
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5 DEFINT fi-Z 

lø SYMBOL AFTER 32 

15 SYMBOL ASCX "X" >,255,255,255,255, 255,255,255,255 

2ø SYMBOL 255,&X1lølløl1,&X11111111,&X1lølløl1,&X11øøø,&X11011011,&X11111111,&X1 
lølløl1,&X1løøø 

3ø SYMBOL 254,&X11øøø,&X1101100,&X1110000,&Xløl11011,&X11011181,&X1øø1110,&Xløl1 
1,&X1lølø 

40 SYMBOL 253,&X11løl1lø,&X11løl1lø,&Xløø8iøØ,&X11111111,4X11111111,4X10001øø,4X 
llløll10,4X11101llø 

5ø SYMBOL 252,&Xllølø,4Xløll1,4X1001110,4X1løl1løl,4X10111011,4X111øøøø,4X110110 
0,4X11000 

6ø SYMBOL 251,4X1løøø,4X11011011,4X11111111,4X1lølløl1,4X1løøø,4X1løl1011,4X1111 
1111,4X11011011 

7ø SYMBOL 25ø,4Xlølløøø,4X11101000,4X11løølø,4X1011løl1,4X11011101,4X11lø,4X1101 
lø,4Xlløøø 

8ø SYMBOL 249,4X11løl11,4X11løl11,4X100010,4X11111111,4X11111111,4X100010,4X11lø 
111,4X1110111 

9ø SYMBOL 243,4Xlløøø,4Xlløllø,4Xlllø,4XUøllløi,4Xløllløll,4XllløBlø,4XlllølØØØ 

,4Xlølløøø 

llø INK 1,9 

12ø MODE 1 

130 GOSIJB 450 

14ø RESTORE 160 

15ø FOR i=l TO S = READ x< i ),s»< i ) = NEXT 

16ø DATA ø,l,1,1,l,ø,1,-1,ø,-l,-1,-1,-l,ø,-1,1 

17øxl=22*16 = »1*13*16+4 = ret*i*91*7 = x2*22*16 = »2*12*16 = ret*i*92=7 = fart1 = 1= fart2*1 = 

18ø LOCATE 1,1= oxl=352 = oy1=208 = ox2=352 = oy 2=208 

190 WINDOW#1,15,30,10,10=PEN#1,2=TAG 

2øø MIND0W#2,1,40,1,1 

205 PRINT CHR*<22);CHR$< 1 >, 

21ø vinder1=0 = vi*der2=ø = MO'v'E 21*16,400-11*16 DRAW 21*16,408-15*16,2 

220 WI NDOW SWAP 1=CLS = PEN 3 = PRINT Point1 .= = PEN 2 PRINT Poi*t2; WIHDOW SNAP 1 

230 WHILE INKEY$< >""= WEND 

240 A*=INKEY* 

25ø IF a$="." THEN ret*i*9l=retni*9l-l=IF ret*i*91=0 THEN ret*i*91*8 

26ø IF a$="x" THEN ret*i*92=ret«i*92-l=IF ret*i*92=ø THEN ret*i*92=8 

27ø IF **="," THEN ret*i*9l=retni*9l+l=IF ret*i*9l=9 THEN ret*i*9i=l 

28ø IF a$="z" THEN ret*i*92=ret*i*92+l=IF ret*i*92=9 THEN ret*i*92=1 

29ø IF INKEY<62 >=ø THEN fart2=fart2+l 

3øø IF INKEY( 55 >=ø THEN fart2=fart2-l 

31ø IF INKEYv 3ø >=ø THEN fartl=fartl+l 

320 IF INKEY<22>=ø THEN fart1»fart 1-1 

33ø xl*xl+x(ret*i*91>*fart1 = yl=yl-y<ret*i*9l>*fartl 

34ø x2=x2+x(ret*i*92 >*fart2 = y2=y2~y< ret*i*92 >*fart2 

37ø IF TESTCxl,y1>=1 OR TEST<xi+15,y1-15>=1 OR TEST<xl,y1-16 )*1 OR TESfX xl + 16,y1 
>=1 THEN SOUND 1,ø,2øø,4,1,1,1= WHILE SG<1»127 = WEND = vi*der2=1 

38ø IF TEST<x2,y2)=l OR TEST(x2+15,»2-15>=1 OR TESK x2,y2-15 >=1 OR TEST<x2+15,»2 
>=1 THEN SOUND 1,0,2øø,4,1,1,1= WHILE SGK 1 >>127 = WEND = vi*der1=1 
385 IF vi*der1=1 OR vi*der2=l THEN 433 
39ø MOVE ox1,oy1= PRI HT " "; 

400 MOVE ox2,o»2 = PRINT " "i 

420 PLOT x1,y1,3 = ox1=x1= oy1=y1= PRINT CHR$<256-ret*i*91 >> 

43ø PLOT x2,y2,2 = ox2=x2 = o»2=y2 = PRINT CHR*<256-ret*i*92>; 

431 IF xl+ABS<farti»21*16 AND xl<=21*16 AND »1<400-11*16 AND yl>400-15*16 THEN 
IF fartl*xl<=ø THEN vi*der2=l SOUND 1,2øø,3ø=GOTO 435 ELSE Poi*tl=Poi*tl+l WINDO 
W SWAP 1•CLS = PEN 3 = PRINT Point1;=PEN 2 = PRINT Poi*t2•= WINDOW SWAP 1 

432 IF x2+ABS<fart2)>21*16 AND x2<*21*16 AND »2<4øø-11*16 AND »2>4øø-15*16 THEN 
IF fart2*x2<=ø THEN vinder1 = 1=SOUND 1,2øø,3ø = GOTO 434 ELSE Po i*t2=Poi*t2+1= WINDO 
W SWAP 1 CLS = PEN 3 = PRINT Pointl j =PEN 2 PRINT Poi*t2; =WINDOW SWAP 1 

433 IF vinder1 = 1 AND vi*der2=l THEN xl=22*16 = y1 = 12*16 = ret*i*9l=7>fart 1 = 1=x2=22*i 

6 = y 2=12*16 = ret*i*92=7 = fart2=1= P oi*t1=P oi*t1-1=P oi*t2=P oi*t2-1= GOTO 21ø 

434 IF vinder1=1 THEN x2=22*16=»2=12*16=ret*i*92=7=fart2=l=Poi*t2=Poi*t2-l GOTO 
21ø 

435 IF vinder2=1 THEN x1=22*16 = y1=13*16+4 = ret*i*91=7 = far11 = 1= Poi*t-1=Point1- 1= GOT 
O 21ø 

44ø GOTO 24ø 
450 DIM a$<25) 
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tes med en hovedmenu, grammet kan konverteres til 



hvorfra resten al programmet tape. 

kan køres. Det er selvtorkla- Her følger en kort beskrivelse 
rende da man bare taster det al de let-overskuelige proce- 


ind, programmet spørger om. dure 
Filerne som indeholder den le:D 
indtastede data (navn+firma 


durer som er brugt i Masterfi- 


Masterfile 
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Identity Check 

_ trim * _ _— 


PERSONNUMMERBEVIS PERSONNUMMERBEVIS 


INDENRIGSMINISTERIET 

Sekretariatet for personregistrering 


Optaget i folkeregistret for nedenstående kommune 

HØJE-TISTRUP 2630 


HANS CHRISTIAN THAYSEN 


Beviset skal opbevares omhyggeligt. 

Deres persor^nummerbevis skal bruges til dokumentation at 
personnummer over for offentlige myndigheder og andre 

Er der fejl i bevisets oplysninger: 

Se vejledning på bagsiden. 


■ Er du i en identitetskrise, og 
kan du ikke tinde dig selv? 
Det skyldes uden tvivl, at du 
har et forkert CPR-nummer! 
For Commodore 64 ejere, der 
føler sig fremmedgjorte, er 
redningen her. Programmet 
spørger selv om de ønskede 
oplysninger, og checker CPR- 
nummeret. □ 

Jan Petersen 


10 PRINT-J aCPR. TAESTB ":CLR 

20 PRINT 11 SKRIV CPR-NUMMERET ,HUSK KUN 10 TAL" 

30 INPUTCP* 

40 CI«LEN<CP*) 

50 IFCI< >10THENG0T0 1000 
70 FOR L=1 TO 10 
75 READQ 

SO FA=FA+< < VAL< MID*< CP*,L, 1 > > >*Q> 

100 NEXTL 

105 IFFA=OOOOOOOOOOTHEN20DO 

110 IF<FA/11> = INT<FA/1 1>THEN1500 

120 IF<FA/1 1X >INT<FA/1 1>THEN2000 

999 END 

1000 PRINT”J DET SKULLE VAERE PAA 11 CIFRE IKKE PAA 

1010 F0RN=0T01700:NEXT:GOTO 10 

1100 DATA4,3,2,7,S,5,4,3,2,1 

1500 PRINT"jJ DET ER ET AEGTE CPR-NR." 

1510 INPUT" IL DU HAVE TAESTET ET NYT CPR-NR< J/N) ” ; I * 
1520 IFI*="J"THEN10 
1530 IFI*="N"THENEND 
1540 GOTO 1500 

2000 PR I NT "iXPR-NUMMERET VAR FORKERT 

2010 II'J’UT-tfVIL DU HAVE TAESTET ET NYT CPR-NR< J/N) “ i I* 
2030 IFI#=“J"THEN10 
2040 IFI*="N"THENEND 
2050 G0T02000 

2500 DATA4,3,2,7,6,5,4,3,2,1 


Sweet,sweet 




■ I dette lille program kan du Bedste og mest naturlige ha¬ 
høre sød musik for dine ører. stighed vil nok være omkring 
Programmet spørger først om 250-300. Efter melodien har 
hastigheden pd melodien, spillet færdigt, stilles du igen 
1000 er mest langsom og 50 over for spørgsmålet om ny 
er hurtigst. Da spiller compu- hastighed, og programmet 
teren så hurtigt, at man næ- starter påny.D 
sten mister vejret. Nils Lausten 
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CBM-banko 





■ Bliv banko-oprdber i din lo¬ 
kale sportsklub osv. 

Med dette lille program er du 
i stand til at lade din Commo- 
dore 64 udtrække de 90 num¬ 
re. Vel at mærke samtidig 
med at de udtrukne numre 
placeres pd de rigtige pladser 
i kontrolpladen. 

F1 giver nyt tal, Return nyt 
spil.D 


F0RI-9T089STEP10 
IFTB<UO)* ITHENY*20 
NEXT 

32 FOR I■10T090STEP10 

33 IFTB< UD)*ITHENY*22 


10 F0RT8-81T090 
10 IFTBCU0>»T8THENX«25 
10 NEXT 

>0 REM***************** 

>0 PRINTLEFT« ft*,Y))TAB< X)TB< UO 
)10 A*«""sGETAS:IFA*«""THEN10IC 
115 IFA*-"*" THEN1500 
00 GETBS:IFB**""THEN1100 
10 IFB*-CHR*< 13)THEN3000 
15 GOTO 1010 
iOO FORTAL-UOTOS 
»00 TB< TAL ) -TB< TAL* 1 ) 

>00 NEXTTAL 


3-S-l 
IFS-0THENG0T03000 
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Intelligent 

Othello^ 


wmm 


■ Jeg vil gerne fremhæve, crt 
dette eksempel på brætspillet 
Othello, er hvad man kunne 
kalde ''intelligent". Det skal 
forstås på den måde, at du 
med denne version al Othello 
i din computer, får en ganske 
værdig modstander. 

De erfarne spillere vil hurtigt 
finde programmets svaghe¬ 
der, og vil kunne spille på 
dem. Har du derimod ikke 
den store erfaring med spillet, 
vil det give dig mange mor¬ 
somme timer i selskab med 
din datamat.□ 

Hans-Etik Larsen 


;at ro, 7i"ViL dl; begynde j/n“ 

7 IF INKEYS O"" THEN GOTO 7 
3 IF INKEYS*"" THEN GOTO S 
3 IF INKEYS*"J" THEN GOTO 13 
10 IF 1NKEYS=“N" THENAS=1 

13 SOUND 10,1000 

14 CLS 

15 PRINT AT 10,S!“TAST F. FOR FA 
ST NODE"SAT 12,3S"TAST S. FOR SLO 
W H0DE" 

16MODE=0 

17 IF 1NKEYS*"F" THENM0DE*1 
ie IF INKEYS="S" THENMODE-2 

19 IF M0DE)0 THEN GOTO 22 

20 GOTO 17 

21 IF AS-O THEN GOTO 50 
22MI-3 

23 IF INKEYS*"" THEN GOTO 23 

24 IF INKEYS="N" THENAS*1 
50 CLS 

55XX=0 
70 FAST 
800*16826 
90 FOR B=5 TO 12 




67HD-0 

70 POKE 16418,2 

71 POKE C-l, 189 

72 POKE C-33,189 


76 POKE C-34, 180 

77 IF AS—1 THEN GOTO 1000 
80 PRINT AT 0,01") )«d. tit ri 


200 IF INKEY*<>“" THEN GOTO 200 
210 IF INKEYS*"" THEN GOTO 210 
220AS*INKEYS 

221 IF CODE A*=53 THEN PRINT AT 


225 IF CODE AS=28 THEN GOTO 562 
229 IF CODE AS <38 OR CODE AS) 45 
N GOTO 200 
230X-C0DE AS-38 
240 SOUND 20, 1000 
250 POKE 16874, <X+38) 

260 IF INKEYS O"" THEN GOTO 260 
270 IF INKEYS—"" TKEN GOTO 270 
280BS* INKEYS 

285 IF CODE BS> 45 OR CODE BS <38 
M GOTO 260 
290Y=C0DE BS-38 
300 SOUND 20. 1000 
310 POKE 16375.26 
320 POKE 16876,<Y+38) 


1 > = 180 OR PEEK <S+1) = 130 
33) = 1S0 OR PEEK <S+32) = 18 
5+34)-ISO THEN GOTO 360 


D-34) T016651 STEP-34 
A-189 THEN GOSUB 600 
A <*128 THEN GOTO 385 

B-33) T016550 STEP-33 
A-189 THEN GOSUB 650 
A<=128 THEN GOTO 405 

Q-32) TO16550 STEP-32 
A-189 THEN GOSUB 700 
A <*128 THEN GOTO 430 

0-1) TO16550 STEP-1 
A=189 THEN GOSUB 750 
A<*i2S THEN GOTO 450 

0+1) T017300 STEP1 
A*189 THEN GOSUB 300 
A < = 128 THEN GOTO 470 

0+32) TO17300 STEP32 
A=1B9 THEN GOSUB 8S0 
A <*128 THEN GOTO 490 

Q+33) TO17300 STEP33 
A=189 THEN GOSUB 900 
A <*128 THEN GOTO 510 

0+34) T017300 STEP34 
A=189 THEN GOSUB 950 
A<=128 THEN GOTO 540 


560 PAUSE 150 

561 GOTO 178 

562 PRINT AT 9, 01 "loK. ■“ s 
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Soft 

scroll 


ORIC 


Dette program til Oric/Atmos 
er en lille maskinkoderutine, 
der fint kan bruges som 
"blær" i spil og andre pro¬ 
grammer. Programmet "mi¬ 
ler" hele karaktersættet. Kal¬ 


der man rutinen 8 gange, vil 
karaktererne være på plads 
igen. Demoprogrammet skul¬ 
le gerne vise, hvordan det 
virker. □ 

Anders Jørgensen 






1 F0RN=#400 T0#41D 

2 READA$:M-VAL("#"+A$) 

3 POKEN.M 

4 NEXT N 

5 DATA A9,ØØ f AØ,B4,85,ØÉ 

6 DATA AØ,ØØ t B1,00,2A,Bl,00,2A 

7 DATA 91,00,C8,DØ,F5,E6,01,A5 

8 DATA 01,C9,B8,DØ,ED,60 


5,84,01 


10 REM ++++ DEMONSTRATION ■ 
20 CLS s PAPERØ:INK7 
30 POKE#26A,10 


2. del 


40 PL0T3,10,"DETTE ER EN DEMONSTRATION AP, HVAD" 
50 PL0T3,12,"MAN KAN GØRE MED DEN LILLE RUTINE." 
60 WAIT 200 

70 F0RN-1T080: CALLMØØ: NEXTN 
80 WAIT 200 

90 FORN-1T080:CALL&400:NEXTN 



Space 

animals 



■ I dette Scramble lignende 
spil til 48 K Spectrum skal du 
flyve gennem de 7 forskellige 
skærme. Samtidig skal du 
skyde rumdyr ned uden selv 
at blive ramt. 

På hver skærm bliver spillet 
en smule sværere. Det ses ved 
at jorden skifter farve og lase¬ 
ren hurtigere bliver ophedet. 
Spillet er i øvrigt selvforklaren¬ 
de.□ 

Benny Lønstrup Kristensen 
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■ Programmet kan checke et alle gyldige erstatningscltre til 
CPR-nummer. samt beregne en given fødselsdag. □ 

Niels Jørgen Bertelsen 


y HlM X >^NEXT REflDJDv II/, MK U',y 

M lFVfiL<RIGHT*<M2> •/ , 4=INT<.VflL'.RI0HT4' Di •*: • >/* > rHENflD(2>*29 
40 IFLEN<D*K>é OR VflLtOR U. U THEH^y 
Sø F0RX»1 rOb^S l^Sy- yCHvA > * VAL < MID*i DS... I • NEXT 

yy S2*S1 F0RX*?T0iy S 2aS2*CH<X)AvrtL<Hm« Ki. a VTi > , NEXT - IFS2/1l*iNT<S2/l 1 > THEN i 











































































JO PRINT-J" 

30 FORJ=49152T049152+595 
60 READ X!POKEJ,X«U=U+X 
70 NEXT J 

80 IFU<>77887 THEN PRINT“FEJL I DATA":END 
90 PRINT“DATA OK." 

92 PRINT"SAVES SOM 'SPRITE BASIC'" 

93 A*="SPRITE BAS IC " «POKE187,PEEK< 71) 

97 POKE188,PEEK< 72>•A=PEEK< 188)*236+PEEK< 187) 
100 POKE183,PEEK<A):POKE187,PEEK<A +1) 

102 POKE188,PEEK< A*2 >:P0KE251,0«P0KE252,192 
104 POKE185,1«POKE186,1 sP0KE780,251 
106 P0KE781,83•P0KE782,194 

108 SYS63496«END 

109 REM 


I 83,80,82,73 
I 68,69,77,85 
\ 63,67,69,82 
I 83,80,66,76 


45,194,67,1! 
75,141 ,8,3,5 
240,6,32,12 
192,76,174, 
0,197,232,21 


84,69,83,68,86,73 

76.84.73.67.80.76 
83,70,63,82,86,69 

79.73.73.79.76.76 
76,76,73,66,237,192 
93,143,193,220,193,14 , 


•4,169,192,141,9,3,169 
16,32,113,0,201,93 
,0,76,231,167,32,94 
67,162,0,32,115,0,157 
•4,6,144,245,169,0,141 
231,169,192,133 ,252,160 ,0 


223,169,0,76,233,174,173,233,207,10 


I 232,108,231,0,170,169,1,224,0,240 
• 4,10,202,208,232,96,32,115,0,32 
1138,173,32 ,247,183,163,20,201,8 ,176 


163,20,201,16,176,222,96,32,186,192 


I 32,174,192,141,233,207,32,203,192,201 
• 0,240,12,173,253,207,13,21,208,141 
I 21 ,208,76,20,193,173,235,207,73,255 


10,173,255,207,13,23,208,141 


I 247,183,163,20,201,16 


I 208,32,221,192,141 ,38,208,96,76,72 
l 178,32,186,192,10,141,233,207,32,233 
l 174,32,138,173,32,247,183,163,20,174 


0,208,163,21,201,2 ,176 


207,32,174,192,13,27,208,141,27,208 


• 27,208,141,27,208,96,32,186,192,141 


i 183,165,20,201,11,144,7,174,253,207 
157,248,7,96,76,72,178,32,186,192 
i 32,174,192,43,30,208,240,3,76,78 
194,32,113,0,201,38,208,243.96,32 
186,192,32,174,192,43,31,208,240,237 
32,233,174,76,160,168 



92,133,251,189,49, 192,133 



Sprite 

Basic! 


■ Sprite Basic til Commodore 
64 giver dig 8 nye komman¬ 
doer til styring at sprites. 

Disse kan indtastes som al¬ 
mindelige kommandoer, 
dog med en pil-venstre toran. 
Når programmet er indtastet, 
laver den BASIC programmet 
om til maskine-kode, hvoref¬ 
ter dette skal lægges ned på 
bånd. Siden skal det loades 
med LOAD ” ".1,1. De ekstra 
kommandoer er: 

Sprite nr,on/off,multicolor 
(on/oft) 

Udvide nr,x(on/oft).y(on,oft) 
Multic mcl.mc2 
Placer nr.x.y 

Starve nr.farve,prioritet til tekst 


o = høj 
1 = lav 

Spblok nr .bloknummer 
(11-255) 

kollis nr,linienummer: 
kollib nr.linienummer: 
on=l 
oft=o 

nr=spritenummer(0-7) 

De otte kommandoer er selv¬ 
forklarende på nær kollis og 
kollib. De skal begge inde¬ 
holde sprite nr. og deretter det 
første linie nummer på den 
subroutine, som computeren 
skal hoppe til, hvis der sker en 
kollision. Det kan sammenlig¬ 
nes med It then go to.D 

Bo Johansen 
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5ø MODE 2- faet*1 
6ø GOSUB løø 
7ø GOSUB 36ø 
8ø GOSUB 39ø 
9ø GOTO 41ø 
løø REM rutine de 


EMV ud fra indtastede tal 


120 PRIMT "Ft attack tid 1 - 127 <hundrededele sek)" \ 

13ø PRIMT "D : decaa tid 1-127 <hundrededele sek >*' 

14ø PRIMT "3 ; sustain niveau 1 - 15" / - 

15ø PRIMT "R; release tid 1 - 127 (hundredele sek>" \ (i 

16ø IMPUT "indtast ft.ø,S,R "; at i d M K , dt i , sus l« rt i d'A AN 

170 IF atid«15 THEM 19ø \ 

130 ass« 1 ; aas« 15 : ast«INK at id« 15) : GOTO 2øø ^ 

19ø ast«l : aas«atid’: : ass«INT< 15/atidJi) 'tUS'"«"’ 

2øø i l ev« 15-< aas/i*ass); > 

21ø ddroP«15-susl5( 

22ø IF dtid«ddroP5i THEM 24ø - — 

230 dss«-l : das«ddroP5i=dst«CIMT(dtid«ddroP^) : GOTO 25ø 
24ø dst«l : das«dtid5J ! dss«INT<ddroP*:/dtid5( > ! dss«dss?i*-l \ 

25ø IF rtid«su.sl% THEM 27ø \ 

26ø rss«-l ; ras«susl5( : rst^=CINT<rtid7;/susl5i> : GøTø 28ø __>\ 

27ø rst«l =ras«rtid/J ! rss«CINT<suslVrtid/4> ! r££«rss5i:*-l j k 
28ø sust«dur?j-atid5s-dtid/S-rtid5i W 

29ø IF sust«l THEM sust«l 

3øø t2«tlV2 V_^--_ 

31ø t3«tl«3 
320 ZONE 6 

330 PRIMT "start".• "attack", .• "decaa ",, > "sustain".., "release" 

340 PR I MT il ev*-i ,aas^ ass^ ^ ast>... dasJi / dss ’-(, dstJC. 1,0 • sustSJ > ra > rss* 
35ø RETURM 

36ø IMPUT "tonelaen9de (i hundrede le sek) ";durkl 
37ø GOSUB 170:REM 9enbere9n EMV Parametre 
38ø RETURM 

39ø IMPUT "overtoneniveau for 2. o9 3. harmoniske <ø-7>";v2«v3^ 
4øø RETURM 

41ø REM rutinen omsaetter tasterne til toner 
420 REM tasterne i raekke z-/ er de hvide tan9enter 
43ø REM tasterne mellem s o9 ] 9iver de sorte tan9enter 
440 p«ø 

45ø k*=IMKEV'$ : REM to emPta input buffer 
460 IF k*="1" THEN GOSUB løø 
47ø IF k*="2" THEM GOSUB 360 



IF k$="3" THEM GOSUB 39ø 
IF k*="4" THEN fact=fact*2 
IF k$="5" THEM fact=fact/2 
IF MOT IMKEY< 71> THEM P«473 
IF NOT INKEY(6ø> THEM P«451 
IF NOT INKEY< 63 > THEN P«426 
IF MOT INKEY<61 > THEN P«4ø2 
IF NOT IMKEY< 62> THEM P«379 
IF NOT INk'EY< 55 > THEM P«358 
IF NOT INKEY<52) THEN P«333 
IF NOT INkEY( 54) THEM P«319 
IF HOT INKEY< 44) THEN P«3øl 
IF MOT INKEY<46) THEM P«284 
IF MOT INKEY( 45) THEN P«268 
IF NOT INk'EY< 38) THEM P«253 
IF MOT INkEY<39) THEN P«239 
IF MOT INkEY< 36) THEN P«225 
IF NOT INkEYOl > THEM P«213 
IF NOT INkEY< 29) THEM P«2øl 
IF MOT INkEY<3ø > THEN P«19ø 
IF MOT INKEY<22) THEN P«179 
IF NOT IMkEY< 19) THEM P«169 
IF P«q7. THEM 41ø 
4«P?C 

IF P«>ø THEN 74ø 

GOTO 46ø 

REM 

REM rutine der spiller tonerne 
REM 

P«P«fact 

o«P«2 

o2«PV3 

EMV 1 , 9 . 9 .%'/., ass« ast« das« dss« 
SOUMD 1,P«0, ilev«l 
SOUMD 2;0«dur«v25i 
SOUMD 4, o2’( / dur , v3^ 
r:r lTGl 4 ~ 


Amsynth 


Dette program kan være en 
stor hjælp tor dem, der synes 
at ENV-kommandoen på 
Amstrad er forvirrende. Pro¬ 
grammet simulerer en syn- 
theziser, torstået på den må¬ 
de at man kan indtaste vær¬ 
dier for Attack, Decay, Susta¬ 
in og Release, hvorefter prog¬ 
rammet udskriver de tilhøren¬ 
de værdier til ENV. De to ned- 
erste rækker på tastaturet 
kan derefter bruges til at spil¬ 
le nogen toner med den 
valgte ADSR. 

Attack er det antal hundrede- 
le sekunder, tonen er om at 


nå op på fuld styrke. Decay 
er det antal hundrededele se¬ 
kunder, tonen er om at falde 
til sustain-niveau. Sustain skal 
ligge mellem 0 og 15. Relea¬ 
se er det antal hundrededele 
sekund tonen er om at fade 
helt ud. Mens man spiller kan 
A, D, S og R ændres individu¬ 
elt, ligesom oktaven kan flyt¬ 
tes op og ned. 

1 ændrer ADSR 

2 ændrer tonelængde 

3 ændrer overtoneniveau 

4 flytter en oktav ned 

5 flytter en oktav op □ 

Jørgen Rasmussen 
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Meteor 


■ I Meteor tiPCBM-64 gælder 
det om at unslippe en at de 
store farer i universet, de store 
meteoritter, som svæver 
rundt og bliver tiltrukket al de 
enorme planeter. Program¬ 


met er meget struktureret op¬ 
bygget med en masse rem¬ 


sætninger, så den kreative 
programmør kan bygge vi¬ 
dere på det. Men de kan 
selvfølgelig alle undlades. De 
symboler, der er i nogle print¬ 
sætninger er cursor- og farve- 


symboler. Ellers er program¬ 
mer selvforklarende. □ 

Carsten Kock 



20 REM »INITIALISERING* 

30 REM **************** 

40 PRINTCHR*< 147>:RESTOREsGOSUB 1080 
50 P0KE53281,0 sP0KE53280,0:P0KE650,128 
GO CLR s K=3 s S=5 s B=1:F=-5:V=53248:L=54272 

70 P0KE2040,192 : P0K.E204 1 , 183:P0KE2042,194:P0KE2043,195:P0KE2044,196 
80 F0RQ=OT062 : REAOA : POKEQ+ 12238 , A: NEXT 
90 F0RQ=0T062:READA:POKEQ+12352, A:NEXT 
100 F0RQ=0T062 s READA : POKEQ +12416 , A '• NEXT 
110 F0RQ=0T062:READA:POKEQ+12480,A:NEXT 
120 FORQ=OT062 : REAOA : POKEQ+ 12544 , A s NEXT 

130 POKEV+39,1 :P0KEV+40,7:P0KEV+4i ,2:P0KEV+42,15: POKEV+43,13 
140 POKEV +23,8!POKEV+29,3 
150 PRINT CHR*< 147>:POKEV+21,0 

160 FORQ = OTO 100 s Z = INT< 999*RND< 1 > >:P0KE1024+Z ,46 s POKE 1024+Z +54272,7: NEXT 
170 FORQ=1944T02023 s POKEQ,160:POKEQ+54272,9:NEXT 
130 F0RQ=0T02:P0KEQ+1921,160:POKEQ+56193,13:NEXT 
190 F0RQ=0T039!POKEQ +1104,45 :POKEQ+55376,1:NEXTQ 
200 REM ********* 

210 REM »STYRING* 

220 REM ********* 

230 X=160 s Y=205 s POKEV +7,0!POKEV +30,0 s POKEV+21,0 

240 FF = INT< 200*RND( 1 ) +25 > s CC =8:SA= 17 :C=X : F=F +5 : IFRNOC 1 > > . 85THENCC= 16 
250 F0RQ=0T0255STEPS s PR INT” 33B5KIBE"K"■ IFOINT "F "■ 533 ANE "B 
260 Y=Y+.5:I=Y:0=0sP=0sN=PEEK< 56320>-117:X=X+3*< N=60RN=5>-8*< N=20RN= 

270 Y=Y+2*<N=90RN=50RN=1)-2*( N=8) 

230 X=X +8*( X >=255)-8*<X< =0>:Y=Y+2*<Y>=205 
290 IF Y< 60THEN 1000 
300 IF PEEK< V+30)=9 THEN G0T0830 
310 IFY<ITHEN 0=2:P=4:G0SUB760 
320 POKEV+21,1+CC+0 

330 POKEV,XSP0KEV+1,Y!POKEV+2,X:POKEV+3,Y+i 
340 POKEV+4,X:P0KEV+5,Y+25:POKEV+21,1+CC+P 
350 POKEV+6,C sPOKEV+7,Q sP0KEV+8,FF:POKEV+9,Q 
360 POKEV+21,1+CC+0 
370 POKEV+21,1+CC+P 
380 IFY>=I THEN POKEL+4,123 
390 IFPEEK< V+30>=SA THEN GOSUB 770 
400 NEXT 
410 G0T0240 

420 REM ************** 

430 REM »DATA RUMSKIB* 

440 REM ************** 

450 DATAO,24,O,O,24,O,O,60,O,O,60,O,O,126,0,0,126,0,0,255,0,0,255,0 
460 DATA 1,255,123,1,255,123,1,255,123,1,255,128,1,255,123,1,255,128 
470 DATA 123,1,255,128,0,24,0,0,60,0,0,126,0,0,255,0 
430 REM ************** 

490 REM »DATA FLAMME 1 * 

500 REM ************** 

510 DATAO,56,0,0,120,0,0,124,0,0,124,0,0,252,0,0,252,0,0,126,0,0,63,0,0,63,128 
520 DATAO,127,192,0,255,192,1,255,192,1,255,192,3,255,192,3,255,128,1,255,C,0 
530 DATA254,0,0,124,0,0,60,0,0,60,0,0,24,0 
540 REM ************** 

550 REM »DATA FLAMME2* 

560 REM ************** 

570 DATAO,24,O,O,60,O,O,62,O,O,127,0,0,255,123,1,255,123^3,255,0,3,255,0,1,254 
580 DATAO,1,252,0,1,254,0,0,255,0,0,127,128,0,63,128,0,63,0,0,127,0,0,127,0,0 
590 DATA62,0,0,62,0,0,28,0,0,56,0 
600 REM ************* 

610 REM »DATA METEOR* 

620 REM ************* 

630 DATA6,0,0,7,28,0,15,190,0,31,255,0,63,254,0,127,252,192,255,253,240,255 
640 DATA253,243,127,255,248,255,255,252,255,255,254,255,255,255,127,255,255 
650 DATA 127,255,254,63,255,255,63,255,255,31,255,254,13,255,254,13,255,252,8 
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SBO DATA 127,£52,0,60,56 
670 REM ************** 

630 REM »DATA SATEL IT* 

630 REM ************** 

700 DATAO,2,0,26,1,0,22,0,128,16,1,64,34,222,32,13,254,0,3,255,0,7,131,123,7 
710 DATA31,128,15,131,132,15,255,132,15,231,240,7,23 1,144,7,231,150,3,255 ,20,1 
720 DATA254,30,1,20,4,0,43,6,0,120,0,0,252,0,0,0,0 
730 REM *********** * 

740 REM »LYDRUTINE* 

750 REM *********** 

760 P0KE542S6,15:POKEL+5,68:POKEL+6,68:POKEL,25:POKEL+1,5:P0KEL+4,123:RETURN 
770 P0KE54296,15:POKEL+5 ,68:POKEL + 6,63:POKEL,37 sPOKEL+1,17 sPOKEL+4,33 
780 POKEL+4,32:SA =255:F=F+25 s CC=0 : RETURN 

790 P0KE54236,15:P0KEL+5,10:P0KEL+6,63:POKEL ,18:P0KEL+1,1:POKEL+4,123:RETURN 
800 REM ************* 

810 REM *SAMMMENSTOD* 

820 REM ************* 

830 G0r‘JB730 : F0RW=0T050 s P0KE53231 ,0 : P0KE5328C ,255 

840 P0KE5328 1 ,255 : P0KE53230,0 : NEXTLI 

850 K=K-1:POKEL+4,128:IFK=0THEN900 

360 P0KE5328 1 ,0:P0KE53230,0:POKEV+21,0:GOTO 150 

870 REM ********** 

880 REM »SLUTNING* 

890 REM ********** 

900 POKEL+4,123 

910 PR INT "LJ" : POKEV +21 ,0 s P0KE5328 1 ,5:P0KE5328Q .5; PR TNT " raagaaaaMfflBMG AME OVER “ 
920 PRINT" mimWKKKKfa .' IL DU PROVE IGEN J/N" 

330 GET A$:IF A*="J"THEN40 
340 IF A*="N" THEN END 
950 GOTO 330 
360 END 

970 REM ********* 

980 REM *NY BANE* 

330 REM ********* 

1000 POKEL+4,128:B=B + 1:P0KEV+21,0:PRINT" 

1010 PR 1 NT ' ILLYKKE DU GENNEMFORTE “ : PR I NT 

1020 PR I NT " aaaaaa-IE LO OG LYKKE MED BANE”B:S=S+5:F=F+50 
1030 F0RQ=0T03000:NEXT:GOTO 150 
1040 REM ******************* 

1050 REM »START/INSTRUKTION* 

1060 REM ******************* 

1070 P0KE53281,7:P0KE53280,7 

1030 PRINT-J" :F0R0=0T026:PRINT:NEXT 

1030 PRINT” * * *** #**. *** ##* ** 

1100 PRINT" *** * * * * * * *» 

1110 PRINT" * * ** * ** * * ** " 

1120 PRINT" *** * * ****•• 

1130 PRINT” * * *** * *** *** * *“ 

1140 F0RQ=0T09:PRINT:NEXT 

1150 PRINT ' i M III I TIM iBMæB Y C.W.K." 

1160 F0RQ=0T0100:P0KE53281,2:P0KE53280,7:P0KE53281,7:P0KE53230,0:NEXT 
1170 PR I NT "LI" : PR I NT" ER KAPTAJN PAA ET RUMSKIB" 

1180 PR INT:PR INT“EN FARE AT VED FLYVE RUMSKIB ER AT MAN" 

1190 PR INT“KAN BLIVE RAMT AF EN METEOR INDEN MAN" 

1200 PRINT"SLIPPER FOR TYNGDEKRAFTEN" 

1210 PR INT"SAA PAS PAA!!!" 

1220 PR INT:PR INT“DU FAAR FOR HVER BANE 50 POINT" 

1230 PRINT"FOR HVER LOBSKE SATEL IT 25 POINT" 

1240 PR INT"OG FOR HVER METEOR DU SLIPPER FORBI " 

1250 PR INT"5 POINT":PRINT:PR INT"HELD OG LYKKE“:PRINT' 

N“ 

1260 GETA*:IFA*=CHR*< 13JTHEN RETURN 
1270 GOTO 1260 
1280 REM **************** 

1290 REM * METEOR BY * 

1300 REM * CARSTEN KOCK * 

1310 REM * URTEHAVEN 12 * 

1320 REM * 4300 HOLBAEK * 

1330 REM **************** 


RESS RETUR 
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Talkode 


■ Programmet til standard 
VIC-20 kan du oversætte bi¬ 
nære tal til decimaltal og om¬ 
vendt. Programmet er selvfor¬ 
klarende da det selv spørger 
om de ønskede oplysninger. 
□ Niels Jørgen Bertelsen 


VIC 

20 



i* PRINT**«X.«. NEXI-PI 
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»0SUB3000: GOSUB 1OOC 
■ I-3IPRINT"iJ300000 


! G0SUB9200i 


P0KE33281,0 
GOSUB 9000 

POKE30000,1iP0KE30003,0 i POKE30001,0 
O SYS25000: I FPEEK< 30003) = 1THENGOT030000 

1 IFPEEK< 30003X>2THENGOTO 120 

2 IFU-233THENT-1SU-7 

3 IFU-127THENU*235 

4 IFU- 63THENU-127 

5 IFU- 31THENU= 63 
G IFU* 15THENU- 31 

7 IFU- 7THENU- 13 

8 POKE30000,1:POKE30005,0!P0KE30001,0 


■ Dit F-16 fly er under en hvir¬ 
velstorm blevet suget ud i ver¬ 
densrummet, hvor du tor tør¬ 
ste gang ser nogle mystiske ly¬ 
sende fartøjer, de såkaldte 
UFO'er. Flyvestation Kamp 
giver dig besked på at skyde 
dem ned med alle midler. 

Jo længere du kommer, de¬ 
sto tiere retninger kommer 


UFO'erne tra. For hver gang 
sværhedsgraden stiger, skal 
du lande tor at tå atkølet din 
laser-kanon. 

Du styrer med joysticket i CBM 
64's port 1. Spillet er i maskin¬ 
kode, men skal indtastes i BA¬ 
SIC. □ 

Michael Lauridsen 


F-16 Delender 
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■ Med dette program fdr du 
en usædvanlig flot Master 
Mind pd din Commodore 64. 
Ndr programmet starter, fin¬ 
der computeren 4 ud af 6 mu¬ 
lige farver, som du skal gætte 
ved at indtaste forbogstavet. 


Hvis du mod forventning tryk¬ 
ker på en forkert tast, rettes 
ved tryk pd "P". Efter endt 
indtastning trykkes RETURN, 
og du fdr at vide, hvor mange 
sorte og hvide brikker du 
har.D 

Anker Rosenstedt 
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Cosmic Chaos 


lø BORPER li 
CLS 

20 BEEP .2, 
30 GO SUB 1 
40 LET hs=G 
50 GO SUB i 
60 LET «=21 
70 LET sc={ 


PAPER 


■ Din værste yndlingsfjende dags. fordi den ikke har 
har haft held med at gen- været brugt i drevis. men det 
nembryde den strålebarriere, vigtigste er, at den stadig dur 
der skulle redde dig og dine I Cosmic Chaos kommer du 
fra ødelæggelse og død på ud i en vild rumkamp, hvor 
din idylliske planet Eldorado, du får hænderne mere end 
Nu er der kun én udvej. Du fulde med at holde de fjendt- 
må have laserkanonen frem lige rumjagere fra livet. □ 
fra gemmerne. Den er gan¬ 
ske vist rusten og gammel- Leif Kvernhusvik 


PAPER 2, 


PAUSE 


=3+lNT CRND*26): FOR 
[Xi y)=68 THEN GO TO 


63486= 
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150 IF IN 63486=189 AND b<29 THEN LET 

160 IF IN 63486=189 AND IN 65022=189 AN 
D b<28 THEN LET b=bi-2 
120 IF IN 61438=190 AND a> 11 THEN LET 
a=a-l 

180 IF IN 57342=190 THEN IF las THEN 
GO TO 280 

190 IF NOT las THEN GO TO 3000 
200 LET a=at(l AND a<21 ANO IN 6143801 
90) 

210 PRINT INK 4;AT a,b;abc" 

220 IF ATTR (x,y)=68 THEN GO TO 340 
230 PRINT AT x,y;" “ 

240 LET y=yt(RND>.5 AND y <28)-CRND<. 5 A 
ND y>3): LET x=x-C2 AND x>10 AND RN0<.2) 
250 IF x=2ø THEN LET llv=llv-l: PRINT 
PAPER 2; INK 7;AT 0,20!liv: IF llv=0 TH 
EN GO TO 4000 
260 NEXT x 
270 GO TO 100 
273: 

274 REN Baaaaaaaaaaaaaaaaaaaaaa 

275 REN PLOVDRAU Laser 

276 REN Sjekk tor treti 

'277 REtl aaaaaaBBBaaaaaBaaaaaaaa 

278: 

280 LET I as = las-1 

290 PLOT CbJ48)r 12, C 175-(a*8) )e2 : ORAU 
INK 7 !0,78 : 8EEP .003,50: PLOT <b*8)H2, 
f175-Ca*8))*2: DRAM INK 0;0,78 
300 IF ATTR Cx, y) 070 THEN FOR s = l TO 
21 STEP 3: 9EEP .03,s*2.5: PRINT AT x,y; 

INK s/3l 'd": NEXT s - PRINT AT x,yj" : 
lET sc=scrf25-x): vET las=lasti: PRINT 
PAPER 2! INK 7,AT 0,3,sciAT 0,12iiasiAT 
0,13,f" ANO las <103■ OUT 57342,5. GO T 

O 100 

310 PRINT PAPER 2; INK 7;AT 0,3isc;AT 
0, 12! las ;AT 0, 13 J f" AND las<10) 

320 OUT 57342.5 

335 RE11 

336 REI1 Ko II isjonsrutIne 


337 REti aaaaaaaaaaaaaaaaaaaaaa* 

338: 

340 FOR s=2 TO 6 

350 PRINT AT a,bi INK s; abc" 

360 BEEP .2,-10: BEEP .005,s*5 
370 NEXT s 

390 PRINT PAPER 2; INK 7 iAT ø,20;iiv 
400 IF liv<=0 THEN GO TO 4000 
410 OUT 57342,5: GO TO 100 
994: 

395 REM aaaaaaaaaaaaaaaaaaaaaaa 

996 REFI Grat ikk ABC D 

997 REN aaaaaaaaaaaaaaaaaaaaaaa 
998: 

999 STOP 

1000 FOR a=USR "a" TO USR "a"t31 
lølø READ b: POKE a,b 
1020 NEXT a 
1030 RETURN 

1040 DATA 0,0,0,3,7,15,27,59 

1050 DATA 24,24,60,255,255,255,231,195 

1060 DATA 0,0,0,192,224,240,248,220 

1070 DATA 153,219,255,126,60,24,24,24 

1994: 

1995 REM aaaaaaaaaaaaaaaaaaaaaaa 

1996 REtl Innstruksjoner 

1997 REH aaaaaaaaaaaaaaaaaaaaaaa 
1998: 

2000 BORDER 0: PAPER 0: CLS 

2010 PRINT AT 1,31" 1.UENSTR 

E" jTAB 3 i "2.HØTRE" i TAB Jj"0 

.0PP";TA8 3;'*P. 

• SKTT"iTAB 3; 'S.EKSTRA FART 

2020 PRINT AT 7,3;"DIN SCORE AUHENGER AU 
HUOR HØYT R0I1SK1PET ER NAAR DU 

TREFFER DET.C TOPPSCORE = 24) DU ST 

ARTER NED 50 LASERE OG FAAR 1 NT 

FOR HUER trefF.SPIl.LE1 Er OUER 

HUIS 5 ROtISKIP KLARER AA KOHHE 

HELT NED ELLER KDLl IDERER HED I) 

EG. HUJ S DU GAAR TOM s OR i-ASERE -i 


AR DU 50 NTE OG HIS' ER E T viv. 

2030 PRINT INK 7,AT 21.3, FuASH li 'RT 

KK J FOR AA SI ARTE SPIvLEI 

2040 IF 1NKET*=“J" OR 1NKEY*=”j" 1 HEN B 

ORDER 5: CLS : RETURN 

2050 GO TO 2040 

2994: 

2995 RErt aaaaaaaaaaaaaaaaaaaaaaa 

2996 REH Nye Lasere ? 

2897 REti aaaaaaaaaaaaaaaaaaaaaaa 
2898: 

3000 IF las=0 ANO liv>0 THEN LE’ .as=la 
st50: LET llv=llv-1: PRINT PAPER 2; INK 
7;AT 0,12;los;AT ø, 20 i i iv 
3010 IF llv=ø THEN GO TO 4000 
3020 GO TO 210 
3994: 

3995 REH aaaaaaaaaaaaaaaaaaaaaaa 

3996 REM Game Over/Nytt Spil! ? 

3997 REn aaaaaaaaaaaaaaaaaaaaaaa 

3998.: 

4000 PRINT AT 10,11 i flash 1 i GAHE OUER' 
1010 PR1N1 AT 1S,5; MT RYKK J FOR NYT’ 

4020 IF sc>hs THEN LET h*-sc 

4030 FOR J=1 TO 5 

4040 FOR t=l TO 5 

4050 BEEP .05,-t«: BEEP .03,-» 

4060 BEEP .03,-sK10 
4070 NEXT t 
4080 NEXT s 

C090 IF INKEYS="J" OR INKET*="J" THEN C 
LS : GO TO 50 
4100 GO TO 4090 

9992 REtl Hvis programmet ikke 

9993 REtl virker som det skal 

9994 REM proev da aa bylte ut 

9995 REtl IN tallene i I inje 

9996 REM 130-180. 

9997 REH Bytt 190 med 254. 

9998 REH Bytt 1B9 med 253. 

9999 SAUE "RomduelI" LINE 10 


Labyrintkrig 


■ Du skal prøve al komme 
igennem en labyrint, før din 
modstander - computeren - 
samtidig med at du skal pas¬ 
se pd ikke at støde ind i væg¬ 
gene . Du skal også passe på. 
at modstanderen ikke spiser 
dig. Husk at du ikke kan gb til¬ 
bage! 

Nederst pb skærmen kan du 
hele tiden se, hvem der fører, 
og til slut hvem der har vun¬ 
det . Hvis du vil bruge joysticks 
eller andet at styre med, kan 
du ændre i linie 23 og 24. Her 
aflæses retningen. 

Spillet er kort men godt. og 
kan køres med de 2 K RAM, 
som ligger i en standard 
Lambda.D 
Poul Møller 




: NOT PFEK l26SeiSi+«#33-fB.> 

f* , B ; "X" ,f>t C,D; ” 


27 GOTO <F<>0 OR R=C AMD B=D < 
I B=Q) *14.+ 1P =30> 

28 PRINT -80091" 

29 D=D-1 

30 SOUNO 0,999 


D 30,9999 


33 SOUNO T 
3* RUN 
35 SAUE "LfiBYRINfl" 
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Sound 

Generator 


■ De, der har prøvet QL 's 
komplicerede BEEP-kom- 
mando ved, hv i svært det er 
at opnå nøjagi j den bestem¬ 
te lyd, man øn: -:er til t.eks. et 
spil. 

Godt nok tortæller Sinclair i 
manualen, hvilke af de maxi- 
mum 8 parametre, der har 
hvilke indvirkninger på den 
endelige lyd. Men dermed er 
ikke sagt, at man uden vide¬ 
re kan sætte sig ned og gan¬ 
ske enkelt udregne paramet¬ 
rene tor den ønskede lyd. Det¬ 
te er nemlig en noget kompli¬ 
ceret affære, da mange af 
parametrenes værdier, f.eks. 
indbyrdes påvirker hinan- 


manualen, at BEEP-komman- 
doen bør anvendes mere ved 
eksperimentering end ved at 
udregne de nøjagtige værdi¬ 
er for de 8 tal. 

For at gøre denne eksperi¬ 
mentering lettere, har vi lavet 
programmet "QL Sound Ge¬ 
nerator" . Det giver mulighed 
for at eksperimentere sig frem 
til smarte lyde, lagre dem og 
foretage diverse andre nytti¬ 
ge ting. Med lidt flittig brug af 
programmet skulle det være 
muligt at lokke mange spæn¬ 
dende lyde ud af den ind¬ 
byggede højtaler. 

Indtast programmet og start 
med RUN. På skærmen ud- 


gelse af lydens længde. Sam¬ 
tidig spiller QL den nuværen¬ 
de lyd i højttaleren. Du kan 
bruge cursor-venstre- og cur- 
sor-højre-tasterne til at flytte et 
markørfelt rundt mellem de 7 
parametre. Når feltet står ved 
en værdi, du vil ændre, bru¬ 
ger du cursor-op- og cursor- 
ned-tasteme til at op- og ned¬ 
tælle tallet. Holdes ALT samti¬ 
dig nede vil op- og ned-tæl- 
lingen køre hurtigere. Dette er 
nyttigt, hvis store værdier skal 
ændres. 

Hver gang. du har opnået en 
tilfredsstillende lyd. kan du 
gemme den med et tryk på 
F2. Senere kan du eventuelt 


af alle de gemte lyde. mens 
F5 derimod sletter dem alle 
sammen. Endelig nulstiller F1 
de syv værdier for den nuvæ¬ 
rende lyd. 

Bemærk, at BEEP-komman- 
doen i programmet bruges 
med en længde på nul. når 
lyden afspilles. Har du i sinde 
at bruge de lyde, der laves, 
med en anden længde, må 
du være forberedt på, at det 
måske kommer til at lyde lidt 
anderledes. Det skyldes, at QL 
faktisk afspiller en lyd med 
længden O en smule ander¬ 
ledes end samme lyd med en 
hvilkensomhelst anden 
længde. Sådan er det ba- 
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Stoneracer 



Amcircle 


■ Som regel skal der ikke 
meget til tor at lave de flotte¬ 
ste mønstre på en grafisk 
skærm. Prøv blot dette lille 
program, der tegner op til 30 
forskellige cirkelmønstre i vil¬ 
kårlige tarver. 

Prøv også at bruge nogen an¬ 
dre funktioner end lige COS 
og SIN. Denne idé med at 
bruge matematiske funktio¬ 
ner til mønstertegninger kan 
med tordel bruges til at pep¬ 
pe ens egne programmer lidt 
op! □ 

Kaj Laursen 


1 REM CIRKEL MØNSTRE \ 

2 REM Copyright KaJ Laursen \ 

lø s=INTCRND*3ø+l > V v 

2ø CLS ; BORDER ø - INK ø,ø V 

3ø x -I HT < RND*26 > = INK 1, V 

4ø y = I NT <RND*26> : INK 2,y 

5ø z= I NT CRND*26>'INK 3,2 • ".3^^ 

6ø FOR n=ø TO 36ø STEP s 
7ø MOVE 320,200 

8ø DRRW 32ø+19ø*C0SCn>,2øø+19ø*SINCn),1 
9ø DRRU 32ø+19ø*C0S< n+2. 5*s >, 2øø+19ø*S I NC 

løø DRRU 32ø,2øø,3 ^- 

llø IF INKEY$< >"" THEN lø 

12ø NEXT / S) 

13ø IF INKEY$<>"" THEM lø / ^ 

14ø GøTO 13ø ' ( 
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INDEX print 


■ Indexprint til Commodore 
64 giver dig mulighed for at 
fd orden i dine bånd. Selve fi¬ 
lerne med tæller og titel kan 
også lægges pd disk. Blot 
skal linie 1 rettes til 8 i stedet 
for 1. Du kan bdde lave num¬ 
merstyret og alfabetisk ud¬ 
skrift. Ellers er programmet 
selvforklarende gennem sin 
hovedmenu. □ 

Martin Petersen 


1 TD =1t G0T02 s 1=TAPE, 3=DISK 

2 REM*»SKREVET AF MARTIN PETERSEN 1985** 
5 DIMTA< 100):DIMNAS* 100) 

10 P0KE53281,254 sP0KE53280,246:PRINT"LA" 
20 PR I NT" 33811 . NUMMERERET UDSKRIFT" 

30 PR I NT 11 SS . ALFABETISK UDSKRIFT" 

40 PR INT"33. HENTE DATA FRA BAAND/DISK” 
50 PR INT "34. INDTASTNING AF DATA" 



40 PR I NT "33 
50 PR INT"34 
55 PR I NT "35 
SO PR I NT "33 


VAELG TAL FOR ONSKET FUNKTION! 


Programmer: 

Samtlige altrykte listninger 
er afprøvede tør offentlig¬ 
gørelse. Forlaget betaler 
skatteiiit op til 1000 kroner 
tor godkendte læserpro¬ 
grammer. Forlaget har ret til 
at aftrykke godkendte pro¬ 
grammer i bladet og offent¬ 
liggøre dem p6 andre 
lagermedia. 


70 GETA: IFA< 10RA>5THEN70 |S| grammet i bladet og otlent- 

liggøre dem på andre 

80 I FA= 1THENG0SUB200 || | lagermedia _ 

SO IFA=2THENG0SUB300 IsSSSSS 

100 IFA=3THENG0SUB400 
110 IFA=4THENG0SUB500 

120 IFA=5THENP0KE53230,254 : P0KE5323 1 ,246 : PR INT",J3" : CLR : STOP : END 
130 GOTO 10 

190 REM*****NUMMERERET UDSKRIFT********* 

200 0PEN4,4sPRINT#4,CHR4>< 14)"BAND";BA)" SIDE" ;SI;CHR$< 15):PRINT#4 
210 F0RB= 1T0AN:PRINT#4 ,B,'CHR$< 1S)"04 |”;CHR*< 16 ) ”06 ” ; TA< B ) ; CHR$< 16)"12 
230 PRINT#4,CHR*< 16 ) " 14 " ; NA3>< B ) s NEXT: CL0SE4 : RETURN 
290 REM*****ALFABETISK UDSKRIFT********* 

300 0PEN4,4:PRINT#4,CHR$< 14)"BAND";BA;" S IDE " ; SI; CHR$< 15):PRINT#4:G=0 
310 F0RB=S5T090:F0RC=1T0AN:IFASC< NA*( C)X >BTHEN340 

320 G=G+ 1 s PR INT#4 ,G,*CHR'^< 16 ) "04 | ";CHR*C 16)"06";TA< C );CHR$< 16) “ 12 | “J 
330 PRINT#4,CHR*< 16 ) " 14 " ; NA*< C ) 

340 NEXT:NEXTs CL0SE4:RETURN 

390 REM*****DATA FRA BAAND/DISK********* 

400 INPUT"BAANDNUMMER ,S IDE " ; BA ,S I :E*=STR$< BA)+STR$-' SI ) 

410 0PEN1,TD,0,E$:AN=0 

420 AN=AN+1: I NPUT# 1 ,TA< AN) : INPUT# 1 ,NA$< AN) : IFNA$< ANX >"SLUT"THEN420 
430 AN=AN-1:CL0SE1:RETURN 

490 REM***** INDTASTNING AF DATA*********. 

500 PR INT"J"SPRINT"3333 ,SLUT=ST0P"sAN=0 

510 AN=AN+ 1 : INPUT" BA ANDTE ALLER ,T I TEL TA< AN) ,NA$< AN) s IFTA( ANX >0THEN510 
520 I NPUT " BAAND NR., S IDE “ ; BA ,S I s E$=STR$>< BA ) +STR$< S I ) 

530 0PEN1,TD,1,E$:F0RB=1TOAN:PR INT#1,TA< B)s PRINT#1,NA*< B)s NEXT 
540 AN=AN-1 s CLOSE1 s RETURN 
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Hole in one 
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I udlistningen bruges danske 
specialkarakterer. De svarer 
til tølgende taster: 


■ Spillet går ud på. at man 
skal indtaste tre ting for at sky¬ 
de til bolden. Først bliver du 
spurgt om, hvilken retning du 
vil skyde bolden. Dernæst 
skal du opgive, hvilken slag¬ 
kraft du vil ramme bolden 
med. Til sidst skal du skrive, 
hvor mange grader fra jorden 
du vil skyde til bolden. 

For at gøre det hele sværere, 
er der to træer man ikke må 
ramme, og vinden blæser 
konstant bolden lidt væk fra 
det sted, hvor man vil have 
den. 

En betingelse er dog, at man 
holder bolden indenfor ba¬ 
nen. Gør man ikke det, ser 
man næppe sin bold igen. 
Man kan være op til fire spille¬ 
re og spille flere omgange. Til- 
sidst bliver der tegnet en 
pointtavle. Retningen man 
skal skyde bolden i er i grader 
og ser sådan ud: 
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Hold styr på time 

■ Har du altid hatt mistanke maskinen nemlig holde styr I 

om at din lokale købmand på bankkontoen. Du kan og- I W f |lfpj 

svindler lidt med de penge, så indtaste antallet at ar- I I II I 

du får for dit budiob. Har du beidstimer. tå det beløb du m m m ™ m 


■ Har du altid haft mistanke maskinen nemlig holde styr 
om. at din lokale købmand på bankkontoen. Dukanog- 
svindler lidt med de penge, så indtaste antallet af ar¬ 
du får for dit budjob. Har du bejdstimer, få det beløb du 
nogensinde sat dig ned og har tjent og eventuelt lagt 
regnet timelønnen ud. som oveni totalen, 
du får for at flytte fedtede I linie 1070 skrives timeløn- 
papkasser og for at kæmpe nen. I programmet står 20, 
din' 'longjohn'' gennem regn men det skal ændres, alt efter 
og blæst? hvilket beløb du får. I øvrigt er 

Du kunne f.eks. lade din programmet selvforklaren- 
Commodore 64 gøre arbej- de.D 
det. Med dette program kan Bjørn Bay 



1 REM *#*#**«##******#***#*#*******###* 

2 REM * (O BJØRN BAV 1984 * 

3 rem **##*#*******###am*##**#*#*#***#* 

7 REM 

8 REM OVERSIGT 


lø X=53280 

20 POKEX+1 , 9 : POK.EX, 9 
30 PRINTCHR*<1475 

40 PRINT"!! .■- 

50 PRINT" I PFRNSKABSPPnGRRM CD BJØRN »AV 

60 PRINT" ---- 

7ø PRTNTTABOø) "««««»-1P TOTAL" 

80 PRINTTRB<lø)"W5F3P INTAEGT 7 UDGIFT" 

85 PRINTTAB(1ø)"BSF5B UDREGNING AF TIMELØN" 

9ø PRINTTABi; 10) "SSF7P LOAD DATA" 
løø PRINTTABT10)"JH8F89 SAVE DATA" 
llø GETAS 


■" THEN200 : REM Kl 
■" THEN400 : REM F3 
II" THEN 1 øøø : REM F5 

ll"THEN6øø : REM F7 
■"THENSøø : REM F8 


450 IFCf=""THEN440 - 

460 IFC*="THEN480 
470 IFC$="B"THEN540 

480 C=0: INPUT"WTOW»JiTi1INDTAST INTAEGT" :C 
490 B=B+C 

500 F0RX=1T0500:NEXT:G0T0200 

540 D=ø: INPUT" (W!WMn:TilINDTAST UDGIFT" ;D 

550 B=B-D 

56ø F0RX=lT05øø : NEXT : G0T0200 
530 REM 

585 REM LOAD DATA 

530 REM CO 

6øø 0PEN1,1,0,"DATA FIL" 0 

610 INPUT#1,B 
620 GLOSE1:GOTO10 
700 REM 

730 REM SAVE DATA 




B 


00 0PEN1,1,1,"DATA FIL" 
10 PRINTtl,B 
2ø GLOSEPGOTOlø 


185 REM TOTAL 
190 REM 

2øø PRINTGHRSC147) 

210 PRINT" SI OTAL" 

220 PRINT"fBWJiTiWDU HAR NU a"B"S<R. PR« DIN KONTO" 
230 PRINTTABa9)"*W«W«WTRVK SEN TAST" 

24ø GETBf 

250 IFB*= ""THEN240 
260 GOTO10 
270 REM 

280 REM INDTREGT/UDGIFT 
290 REM 

400 PRINTCHRJn47) 

41ø PRINT" 3INDTAEGT / UDGIFT" 

420 PRINTTABt 12)" WWTMKSF1 ■ INTAEGT" 

430 PRINTTAB( 12) "MSE3S UDGIFT" 

440 GETG* 


985 REM TIMELØN 
990 REM 

1000 PRINTCHR?(147) 

1010 PRINT"S 3JDREGNING AF TIMELØN" 

1020 PRINT"S«!KIINDTASr HU DET ANTAL TIMER OG MINUTER" 
1030 PRINT" Wmi HAR VAERET PAR RRBEJDE. " 

1040 T=ø: M=ø : F=ø : G=0 : E=0: I NPUT " MrøAN 1 AL TI MER " T 
1050 INPUT"HSWNTAL MINUTER";M 
1060 E=T*6ø:E=E+M 

1070 F=20/60 : REM '20' ER TIMELØN 
1030 G=F*E 

1090 PRINT"J9MS1DU HAR TJENT a"G"»R. " 

1110 PRINT"l»røSKAL DE"6“KR. PLUjSES TOTALEN C J/N) ?" 
1120 GETG* 

1130 IFG*="J"THEN1200 
1140 IFG*="N"THEN1300 
1150 GOTO1120 

12øø B=B+G:FORX*1T0500 : NEXT:G0T0200 
13øø F0RX=1T05øø : GOTOlø 
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JAMEN... Eft 
DE T IKKE 
STRIP- POKER. 
????? 



















Kort og godt 


■ I dette selvforklarende 
Spectrum spil skal du nå en 
sum på 21 eller så tæt på som 
muligt, uden at overstige 21 .□ 
Leit Kvemhusvik 


300 FOR o=2 TO 18 STEP 4 
310 PRINT AT a,2; PAPER 7; INK 0;x*;AT 
o,23; PAPER 7; INK ø;x* 

320 NEXT o 

330 FOR o=3 TO 19 STEP 4 
340 PRINT AT o,2; PAPER 7 ; INK 0;y*;AT 
o,23; PAPER 7; INK ø;y* 

350 NEXT o 

360 FOR o=4 TO 20 STEP 4 

370 PRINT AT o,2; PAPER 7; INK 0;z*;AT 


2030 IF 0=14 THEN PRINT AT linje,3; PAP 3160 1F sumb>=16 AND sumb<=21 THEN GO T 
ER 7; INK 2;o*: LET ess=ess+l: lET sum=s 0 3190 

amt ]4 3170 IF sumb>21 THEN GO TO 5000 

2040 IF 0=13 THEN PRINT AT linje,3; PAP 3180 IF sumb<sum THEN GO TO 3030 
ER 7; INK 2;b»: lET sum=suii>+13 3190 IF sumb>=sum THEN GO TO 6000 

2050 IF o=12 THEN PRINT AT linje,3; PAP 3200 ,F sui"b<sum THEN GO TO 5000 
ER 7; INK 2;c*: lET sum=sumtl2 3994 REn 

2060 IF 0 = 11 THEN PRINT AT linje,3; PAP 3995 REt1 Du ,ikl< ,or "X® 

ER 7; INK 2;a*: lET sum=suun-ll 3996 REn *#***»#••«•#*****#*#«»» 

2070 IF o<=!0 THEN PRINT AT linje,3; PA 4000 PR 1N F 21,0;' 

















































Casino 

Royale 


5 PRINT"® VELKOMMEN Til 
10 PRINT“LT 

20 P0KE53280,0 s P0KES328 : 
30 C=2OO:0M=0 
40 PRINT" ««liKM »m ' ~ t 


VELKOMMEN TIL JOE'S CASINO »' 


SPILLE ROULETTE ** 


COPYRIGHT : BCSOFT 


■ Med din Commodore 64 
besøgei du her Joe's Casino. 
Du tdr stukket en sum penge 
ud, som du meget gerne skul¬ 
le torøge. Spræng banken el¬ 
ler bankerotten er sikker! □ 
Morten Brunnstrøm 


fflBB*3AMBLER-";N*" VI ER GLADE FOR AT DU 1 
SSBESOGER VORES OHHH. LILLE CASINO." 

riflaaæaasaaaa hilsen joe the cas." 


MM 


TO 7500 s NEXT 


JMGANG 


350 PRINT: INPUT" 5SBG0R DIN INOSATS MIN. 10 KR."; IN 

359 IF 0*500000 THEN 15000 

360 IF IN<10 THEN 10000 
370 IF IN>C THEN 10100 

380 I NPUT * 53SP AA HVILKET NUMMER < 1-8) ”;NR 
390 IF NR >8 OR NR<1 THEN 10200 
400 TF*INT<RND< 1>#8)+l 

410 PR I NT "KHEJET BLEV NUMMER : ";TF 

415 FOR P=1 TO 1000:NEXT 
420 IF TF=NR THEN 10300 
430 IF TF<>NR THEN 10400 

10000 PR 1 NT" .ÆBWMBMPiD IN NAERIGE GED! DU HAR SATSET FOR LAVT. 
10010 FOR P=1 TO 3000:NEXT:GOTO 230 

10100 PRINT" .imwnMMÆ iU LIDER VIST AF STORHEDSVANVID! ! ! !• 
10110 PRINT"MSAA MANGE PENGE HAR DU IKKE!" 

10120 FOR P=1 TO 4000:NEXT:GOTO 230 

10200 PRINT" . JiKBMMmE R DU BLIND, ELLER BARE ALMINOLIG DUM! ! ’ 
10210 PRINT"gMUMMERET FINOES SLET IKKE PAA PLADEN!" 

10230 FOR P=1 TO 4000:NEXT:GOTO 380 

10300 PR INT“UKURRAAAAAA. DU HAR VUNDET “;IN*10" 

10310 PR INT"NU HAR DU“;IN*10+C"KR.■ 

10313 C*IN*10+C 

10315 FOR P=1 TO 5000:NEXT:GOTO 230 

10400 PRINT"JSHA HA HA HA HA HA. DU TABTE * i IN"KR." 

10410 PRINT”SPROV LYKKEN IGEN GAMBLER-”;N* 

10415 C=C-IN 

10417 IF C<10 THEN 10500 

10420 FOR P*1 TO 4000:NEXT:GOTO 230 

10500 PRINT" .JtPiBMWKD U HAR VIST IKKE HELD I SPROJTEN VAR?" 
10510 PRINT"SB3SPILLET ER SLUT! !!!!!!!!!!!!!!!!!!!!!" 

10520 INPUT"MB®) IL DU PROVE IGEN <J/N) ";A* 

10530 IF A*="" THEN 10530 
10540 IFA*=”J” THEN 5 
10560 IF A*="N"THEN END 

15000 PRINT-LMHHHBHYYYYYYYYL DU HAR VUNDET ALLE PENGENE" 
15010 PRINT“M5SS0M JOE'S CASINO EJEDE." 

15015 PRINT"SaSPILLET ER SLUT!!!!" 

15020 FOR P=1 TO 5000:END 


44 Soft Special 
















3D-Maze 




■ I dette spil gælder det om 
at tinde den tantastiske dia¬ 
mant. der ifølge sagnene lig¬ 
ger nede under byen. Pd 
grund at gittige dampe har 
du en robot, som du skal 
tjernstyre rundt i gangen med 


joysticket. 

Undervejs i jagten risikerer du 
at støde på et uhyre. Oveni 
det hele har robotten selvtøl- 
gelig kun begrænset strøm! □ 
Mikkel Birkegaaid Jensen 
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1 REn UED ’BREAK’ BRUG 'GOTO 20’ 

2 POKE 23658,8: BORDER 7: INK ø: PAPE 
R 7: FLASH 0: BRIGHT ø: OUER 0: INUERSE 
0 

11 GO SUB 3090 

20 CLS : PRINT “SPIL SCORE 

NAUN" 

30 PRINT “- 

39 LET 2=65 

40 FOR Y=1 TO SPIL 

50 PRINT CHR* 2; ' jS*CY3i ' "iR*CY3;N* 

CYJ 

55 LET 2=2+1 
60 NEXT Y 

70 PRINT "- 

80 PRINT 41 ;AT I•0; "HAR DU SLaET REKOR 
DEN Pa ET AF DISSE SPIL "i FLASH li"?"i 
FLASH 0;' CJ'NJ 

90 PAUSE ø: I« :nkEY»="" THEN GO TO 9 

0 

100 IF INKEY* THEN GO TO 1000 
110 IF INKEY* N" THEN GO TO 2000 
120 GO TO 90 

1000 POKE 23617,^ 36: INPUT “HUILKET SPIL 
"i FLASH li"?”; FLASH Øi" C TAST-BOGSTAU 
3“ ;X 

1010 INPUT “SCORE “i LINE B* 

1011 IF B*="" THEN GO TO 1010 
1020 IF LEN B*>7 THEN GO TO 1010 
1030 LET R«(X3=B* 

1040 INPUT "HUAD ER DIT NAUN “i LINE C* 
1045 IF C*=“" THEN GO TO 1040 
1050 IF LEN C*>10 THEN GO TO 1040 
1060 LET N«CX3=C* 

1070 GO TO 20 

2000 PRINT 41jAT 1,0;"UIL DU SAUE DISSE 
DATA Pa BaND "i FLASH 1 i”?“ i FLASH Øi"CJ 

2010 PAUSE 0: IF INKEY*="" THEN GO TO 2 
010 

2020 IF INKEY*="J” THEN GO TO 3000 
2030 IF INKEY*="N“ THEN GO TO 4000 
2040 GO TO 2010 

3000 CLS : PRINT AT 9,6;“SP0L BaNDET TIL 
BAGE OG TRYK Pa EN TAST." 

3010 PAUSE 0: SAUE "REKORDER" LINE 1 
3020 CLS : PRINT AT 9,2;"SP0L BaNDET TIL 
BAGE OG TRYK Pa ’PLAY > Pa BaNDOPTAGE 
REN. " 

3030 UER1FY "REKORDER" 

3040 GO TO 20 

4000 PAUSE ø: PRINT 4] ;AT 1,0; 

TAST ’S> FOR AT S 

TOPPE" 

4010 IF INKEY*="" THEN GO TO 4010 
4020 IF INKEY*="S" THEN STOP 
4030 GO TO 4010 

9000 LET SPIL=11 : POKE 23617,236: DIN S* 
(SPIL,123: OIM R*CSP1L,?3: DII1 N* C SPIL, 1 
0) 

9005 FOR Y=1 TO SPIL 

9010 INPUT "SPILLETS NAUN LINE A* 

9011 IF A*="" THEN GO TO 9010 

9012 IF LEN A*>12 THEN GO TO 9010 
9020 LET S*CY3=A* 

9030 INPUT "SCORE "i LINE B* 

9031 IF B*="" THEN GO TO 9030 

9032 IF LEN B*>7 THEN GO TO 9030 
9040 LET R*CY3=B* 

9050 INPUT "SPILLERENS NAUN "i LINE C* 

9051 IF C*="" THEN GO TO 9050 

9052 IF LEN C*>10 THEN GO TO 9050 
9060 LET N*CY3=C* 

9070 NEXT Y 

9080 LET A=1: LET B=2: LET C=3: LET D=4: 
LET E=5: LET F=6: LET G=7: LET H=8: LET 
1=9: LET J = 10: LET K-ll: LET L=12: LET 
M=13: LET N=14: LET 0=15: lET P=16: lET 
0=17 

9085 GO TO 20 

9090 FOR Y=USR "A" TO USR "A"+7: READ 8= 
POKE Y.G: NEXT Y: RETURN 
9095 DATA 24,0,60,66,126,66,66,0 


Guinness 

Records 

■ Er du bedre end din lar til at trum 16K/48K. skriver du' 'GO- 
spille PacMan? TO 9000''. 

Er du bedre end din bror til at Computeren spørger dig om 
spille ' 'Space Invaders''? 11 al dine spilleprogrammers 
Har du slået din vens rekord i navne, om 11 ' 'High Scores'' 

' Jet Set Willy"? og om navnene på de 11 spil- 

Med programmet ' 'Rekor- lere, som har' 'Hich Scores''. 
der" kan du hurtigt linde ud I linie 9090 og 9095 laver vi et 
al, hvem der er nået længst i "Å" ud al grafisk " A". Så du 
hobby 'en og hvor langt han/ skal huske at rette det i linier¬ 
hun er nået, og om du er nået ne 2000. 3000 og 3020. 
længere Husk at' 'SAVE'' hver gang du 

Når du har tastet hele pro- ændrer på navnene.□ 
grammet ind i din ZX-Spec- Karsten Hansen 
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Amlab 

P I 3 


■ Du bliver lukket inde i en to- 
dimensionel labyrint, som du 
så skal slippe ud at i tærrest 
mulige træk. 

Du vælger selv labyrintens 
størrelse, f.eks. 10x10 felter, 
men du kan få op til 50x50 
felter. 

Når du er kommet ned i laby¬ 
rinten, styrer du med dine cur- 
sortaster. Med space-tangen- 
ten kan du kalde et billede af 
labyrinten frem, så du kan se, 
hvor udgangen er. 

I øvrigt får du et tre-dimensio- 
nelt billede af gangene når 
du vandrer rundt nede i laby¬ 
rinten. 

Til sidst en lille advarsel: Hvis 
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Blindebuk 


I NT I,MK 2; ''AAAAAAAAAAAaftAAAAAAAAAAAAAAOAAAP 

R r. = 1 TO < RND*30)+40 

INT AT <RND*20)+1,RND*3l? INK 2?“A" 



INT AT 1,15? INVERSE 1? INK 2?" N "?AT I 
" ? AT 11,31?" ” ? AT 10, 31?"0" 
bb=0 THEN BEEP 3,3? CLS ? PRINT AT a, t 
IN 31=32 OR IN 31=255 THEN INPUT “Hvil 


THEN LET a=a-l: LET 
THEN LET a=a-: 

THEN LET a=a+l 
THEN LET b=b+l 
THEN LET b=b-l 
i,b>=34 THEN PRINT AT 


a(l,k)=0 THEN NEXT K: GO TO 310 
INT AT q(l,k),q<2, kl?" ” 
a> q C1, K > THEN LET q(l,K)=q(i,K)+l 
a(q(l,K) THEN LET q(l, k)=q<l, k)-l 
b<q(2,k) THEN LET q(2, K)=qC2,K)-l 
b) Q (2, k ) THEN LET q(2, k)=q C2, k) + l 
q( 1,k)=a AND q<2,k)=b THEN GO TO 1000 

ATTR < q (1, k), q (2, k)) =34 THEN FOR n=l TO 10? BEEP .1,0? PRINT AT q<i 
"C"?? BEEP .1,1? PRINT ?CHR$ 8? INK 2?"A"? NEXT n? LET o=p+10? PRINT 
2? INVERSE 1 ? o ? ” ? Po i nts", h? "?H i -Sc“ ? LET bb=bb-l? LET q(l,k)=0? LET 


TO 100 

IP 1,-30? PRINT I 
INT "Du DOSDEIM 


INKEY*="0" THEN CLS ? 30 T 0 3 
INT AT 21,0? PAPER CRND*7>? INK 9?" _ l 
STARTE IGEN" 

TC 1050 

3 ER 4? BORDER 4? INK O? INVERSE O? C’ 
^0 653SS? READ a? POKE n,a? NEXT r, 

:A 4. 13, 131,252,253, 127,55, 102,24,24, 
16. 02, 102, 120,63, 66, 66, 68, 120 
INT TAB 14? FLASH i?"ZULU"? FLASH O’ 
INK 7}"B": INK O?” -fra Danmark, eer i 


INVERSE O? OVER O? BRIGHT O? FLASH O? 
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I dette spil til 16/48K Spectrum, 
skal du lokke nogle blinde 
udyr ned i et krater, hvor de 
vil omkomme. 

Men pas på. for deres lugte¬ 
sans er meget god, og kan 
betyde døden for dig. 
Programmet er i øvrigt selvfor¬ 
klarende. □ 

- Christian Bømler 




Supertips 

■ Skal man lave reklame for Inden du starter programmet, [ r~ ■ 

sit tipsprogram, er det bedste skal du først finde de ti største ummm 
nok at fremvise håndfaste re- dagblades prognoser, for de 1 
sultater. Og jeg har faktisk tastes ind i programmets start. — 

vundet en 12'er ved hjælp af Held og lykke!□ /«"■*|§ 


JO IF INKEY*=“J” THEN 
40 IF INKEY*="N" THEN 
50 GOTO 30 
60 CL S 

70 PRINT <raeKKefro.il 
6I7BI9I10" 

80 FOR (1=1 T013 
85 PRINT AT (1+1, Oi "Kai. 
90 DIM K<3> 

100 FOR B=1 T03 

102 IF B=1 THEN PRINT ( 


106 IF 8=3 THEN PRINT AT 21,6!"ind 
t ast Bod d sfrf o r ■" 2 “" 

110 INPUT K(B) 

120 IF K(B>) 10 OR KCBXO THEN GOT 
O 800 
130 NEXT B 


345 POKE 16418,2 
350 IF INKEY*=”S" THEN STOP 
360 IF INKEY*="C” THEN GOTO 60 
370 GOTO 350 
700 SOUND 10, 10000 
710 PRINT RT 19, O? "d i riefr-ddsierB 
lov! >=e-. HBHfcineWsaei-edefcddsBs 


740 GOTO 90 
800 SOUND 10, 10000 
810 PRINT OT 20, 01 "fr 
■knax.R10.fr> in. ■Ofr" 

820 PAUSE 200 
830 PRINT RT 20,01" 


OTO 700 

180 FOR 8=11 T029 STEP2 
190C=INT (RND+16)+1 


840 GOTO 110 

900 CLS 

910 PRINT r 


m jw m t i 

'ntzvr i 
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■ De onde Aliens skal be¬ 
kæmpes ved. at dine for¬ 
svarsmissiler skal rammemå¬ 
let alle sammen, da forbiere 
giver dig minuspoints. 

Når du har fået tilstrækkeligt 
med points, bliver du forfrem¬ 
met til "Commander of star¬ 
fighters". Du får tildelt endnu 
et rumskib, som du skal besty¬ 
re. hvilket er meget vanske¬ 
ligt. □ 

Claus Henrik Bjerre 



1 REM ********************** 

*CLAUS HENRIK BJERRE* ******* 

ODDER********** *************** 

******* B=b C=c D=d 

2 GO SUB 3000 

3 LET U*="???” 

5 PAPER 0: BORDER is INK 7: CLS : LET 
tyk=ø 

8 LET tyk=tyk + l : LET ned=INT CRN0*160 
): LET lar>9 = lNT CRND*230): PLOT lar>*,n«d 

9 IF tyk>=100 THEN GO TO 1] 

10 GO TO 8 

11 PRINT AT 0,0; 

"= PRINT #0; INK 2; 

12 PRINT AT 1,0; OUER 1; INK 4; H 

13 PRINT AT 2,5; BR1GHT 1; INK 6;"d";A 
T 2,7j"d" ;AT 2,9 j"d” ;AT 2, ll;"d";AT 2,13 
• "d" ;AT 2,15}"d" ;AT 2,17;"d" ;AT 2,19;"d" 
;AT 2,21 ;"d" ;AT 2,23;'d" 

14 FOR 1=3 TO 21: PRINT AT 1,28; INK 4 
i" “s NEXT 1 

20 LET esc«pe=0: LET h=21s LET o=l: LE 
T e$ape=ø: LET a=lø: LET 1=3: LET J—'10: 
LET b=-ls LET s=0: LET ty=5= LET a*=" a 
LET b*=" a" 

49 LET c=INT CRND*13+5): LET y=INT CRN 
D*13+5J 


99 PRINT AT 21,a;" bb " 

100 LET a=a+CINKEY*="8" AND a<221-CINKE 
Y*="7" AND a>43 

101 BEEP .002,5 

107 LET J=J + 1 

108 IF J>=26 THEN PRINT AT y,26; ": 

LET e$cape=e$ape+l: LET J=]: GO TO 4600 

109 PRINT AT y,j; INK 6;a$ 

110 PRINT AT c,b; INK 6;b*: INK 7 

111 LET b=b + l : IF b=26 THEN PRINT AT c 
,26;" LET b=-l : LET e$cape=e$cape+l : 

GO TO 4600 

112 LET ty=ty-l 

113 IF Y=C THEN LET Y=Y+1 

115 IF 1=0 THEN GO TO 6000 

116 IF A*=" a " AND S>=300 THEN GO SUB 
3400 

117 IF h=3 THEN FOR 1=3 TO 21: PRINT A 

T 1,29;" ": BEEP ,1,1 s NEXT C LET h=2 

1: GO SUB 5200 

120 IF INKEY*="0" AND ty<=0 THEN GO TO 
1100 

144 IF $>=h$ THEN LET h$=$ 

180 IF s>=300 AND 0=25 THEN GO TO 3000 
190 IF $>=300 AND o=75 THEN GO TO 4000 

200 IF o=løø THEN GO TO 4000 

201 IF o=50 THEN GO TO 3000 
999 LET o=o+l 

1000 GO TO 50 

1100 PRINT AT 21,a; bb ": LET e=l: INK 
6: PLOT a*8+12,9: DRAU 0,135: PLOT a*8+2 
0,9: DRAU 0,135:: BEEP .01,20: BEEP .01, 
40: PRINT AT c,b ;b* 

1101 LET ty=5 

1102 IF a=b OR a+l=b OR a=j OR a+l=j AND 
e=l THEN GO SUB 2200 

1103 PLOT OUER 1 ;a*8+12,9: DRAU OUER 1 
jø,135: LET e=0: PLOT OUER l;a*8+2ø,9: 
DRAU OUER 110,135 

1105 INK 7 
2000 GO TO 50 

2200 IF a=b OR a+l=b THEN PRINT AT c,b; 

INK 5J" *": LET b=-l : LET s=s + lø: PRINT 
AT c,ØJ" "i IF 

$>=300 THEN LET $=$+10 

2201 IF a=j OR a+l=j THEN PRINT AT y,Ji 
" *": LET $=$+10: LET J=0: PRINT AT y,ø; 

” : IF $>=300 THEN 

LET $=$ + 10 

2202 FOR 1=1 TO 10: BORDER 1: BORDER 2: 
BORDER 5: BORDER 0: BORDER 4: BORDER 3: 
BEEP .01,5: BORDER 6: NEXT C BORDER 1: 
BEEP .1,10 

2208 PLOT a*8+12,9: ORAU 0,135: LET e=0: 
PLOT a*8+20,3: DRAU 0,135 

2209 PRINT AT 0,0;"SCORE="k*;AT 0,11;"LI 
UES=";I;AT 0,20;"HI=";h$;" ”;u* 

2210 RETURN 

3000 PRINT AT 21,a; bb “s FOR 9=3 TO 21 
: PRINT AT 9,5;"4 "JAT 9,3;";";AT 9,13; ! 

";at 9,17;“:";at 9,21 ;":"= next 9 

3001 FOR 9=3 TO 21 : PRINT AT 9,5;" " ;AT 
9,3;" “ ;AT 9,13;" ";AT 9,17;" ";at 9,21; 
" "S NEXT 9: LET 0=0+1 

3007 IF 5=a+l OR 9=a+l OR 13=a+l OR 17=a 
+1 OR 21=a+l THEN GO SUB 5000 

3008 IF 5=a+2 OR 9=a+2 OR 13=a+2 OR 17=a 
+2 OR 21=a+2 THEN GO SUB 5000 

3100 GO TO 50 

3400 FOR f=ø TO 3: BEEP .1,10: BEEP .1,1 
0: BEEP .1,10: BEEP .1,0: NEXT I 
3410 LET a*=" c ": LET b»=" c": LET $=$+ 
10: LET 1=1+1 
3500 RETURN 

4000 PRINT AT 21,a;" bb "s FOR 9=3 TO 21 
: PRINT AT 9>2;":”;AT 9»lli"i"iAT 9,15; 

•" ;at 9,i9;' :";at 9,23 ;";": next 9 : if o 
>=100 THEN LET 0=0 

4003 FOR 9=3 TO 21 s PRINT AT 9,7;" " ;AT 
9,U!" " iAT 9,15; "JAT 9,19! "SAT 9,2 
3;" ": NEXT 9: LET o=0 

4007 IF 7=a+l OR ll=a+l OR 15=a+l OR 19= 
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6111 

6112 PRINT AT 20,0;' ET NYT SPIL ~J'N 
- INFORM.~1~" 

6120 IF INKEY*=“J" OR INKEY*="j" THEN G 
O TO S 

6121 IF INKEY»="N" OR INKEY*="n" THEN G 
O TO 6130 

6122 IF INKEY*="I" OR INKEY«="i" THEN P 
APER 0: INK 6: CLS : GO SUB 9990: GO TO 
6 

6129 GO TO 6120 

6130 STOP 

8999 STOP 

9000 FOR n=0 TO 7 = READ «: POKE USR "o"* 
n,a: NEXT n 

9010 DATA 12,30,45,30,54,99,54,20 
9020 FOR n=0 TO 7: READ «: POKE USR "b"+ 
n,a : NEXT n 

9030 DATA 8,8,42,42,28,62,127j54 

9040 FOR n=0 TO ?■ READ #: POKE USR "c"* 

n,o: NEXT n 

9050 DATA 0,8,28,42,127,20,42,85 

9060 FOR n=0 TO 7: REAO «: POKE USR "d"t 

n,«: NEXT n 

9070 DATA 255,255,127,62,28,8,8,0 

9989 LET h s-0 

9990 PRINT AT 3,1 i 1 DETTE SPIL SKAL DU 
BEKAEMPE DE ONDE FLYDENDE ALIEN OG, DU 

MAA IKKE RAMME DED SIDEN AF FOR SAA8 N 
AAR DU NAAR ET DIST POINT-TAL FAAR DU ET 
EXTRA RUMSKIB MEN SAA BLIDER DET OGSAA 
SDAERE AT UNSLIPPE HYPERSPACE LA2ERNE 
GOD FORNØJELSE 

TASTER: 

0 < > * " 

9991 PRINT AT 21,10; EN TAST": POR K=1 1 
0 10: BEEP .02,K : BEEP .05,30: 8EEP .02, 
K: BEEP .05,28: BEEP .02,K: BEEP .05,29: 

BEEP .02,K: BEEP .05,27: NEXT K: IF INK 
EY4" THEN GO TO 9991 

9997 RETURN 

9998 SAUE 'OUT ALIENS' LINE 9999 

9999 PRINT AT 10,10; ^LASH 1 ; STOP BAAND 
ET": PAUSE 200: CLS '• RUN 
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Spider 


I den stjemeklare nat angri¬ 
bes jorden al horder al edder¬ 
kopper. Din opgave er at slå 
angrebet tilbage ved hjælp 
al en laserkanon. Edderkop¬ 
pen der rammes, tvinges til¬ 
bage, men angriber straks 
igen. Hver edderkop, du 
rammer giver i0 points på 
scoringstavler, grafisk adap¬ 
ter nødvendig 1 

Ei. k Hougaaid 8c 
Michael Andersen 


invasion 

i m ^ 
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Vigtigt tip 

■ Vi får ofte henvendelser fra 
læsere, der ikke kan tyde de 
inverse tegn på Commodore 
programmer. 

1 de fleste tilfælde bruges dis¬ 
se tegn udelukkende til at far¬ 
ve teksten eller printe den 

I næste nummer af ’ 'Soft’ vil samtlige Commodore 64 ud- 
listninger være forsynet med informationer i stedet for et in¬ 
verse tegn. 


pænere ud på skærmen. De 
kan derfor ofte undværes, da 
de ikke betyder noget for sel¬ 
ve programmets kørsel. 
Bemærk dog, at tegnene in¬ 
verse hjerter og inverse S skal 
bruges altid.□ 
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Tegn abonnement på SOFT. 


SOFT Special er blevet en så stor succes Ira starten, at 
vi har besluttet at udgive Danmarks eneste program¬ 
blad hver anden måned. 

Det vil sige. at SOFT Special udkommer igen. i april, 
juni, august, oktober, december o s v 

* 

Hvis du vil undgå, at SOFT er udsolgt hos din blad¬ 
handler. er det en god idé at tegne abonnement, o 
numre al SOFT Special koster 153 kroner, og du lår 
bladene portolrit tilsendt. Nåede du ikke at købe før¬ 
ste nummer al SOFT. kan du bestille bladet på forla¬ 
get. Prisen er kr. 27.85. 

* 

Ring og bestil abonnement på telelon 01-11 28 33 el¬ 
ler indbetal straks kr. 153 på postgirokonto 940 60 77. 


Næste nummer af SOFT udkommer den 20 Juni 


Vi tester de 
tunge drenge 


' ny elektronik "går tæt på 3 Hi-Fi 
kraftværker. Hvilket udgangstrin 
er bedst - Quad 405 II. Yamaha 
M-40 eller Kenwood M-l? 

Utradiotionelle løsninger kende¬ 
tegner de to danske højttalere B&O 

Red Line 40 og Dali 6. Lever lyden 
mon op til de smarte ideer? 

En avanceret mini-producer lår 
man hjem. når man køber Sansuis 
AV-77 audio/video processor. Vi 

kigger det lille vidunder efter i søm¬ 
mene, og det kom der meget 
spændende ud al. 

Solen kryber op ad himlen, og sæ¬ 
sonen nærmer sig for ’ ■ asfaltblæ¬ 
sere ” - de store bærbare kassette¬ 
radioer. Vores testhold har prøve¬ 
kørt to musikmaskiner Ira Hitachi 
og Sanyo. 

Irriterer bilradioens lydstyrke? Så 
byg' 'ny elektroniks'' smarte auto- 



volumen-kontrol. Den justerer selv 
anlæggets lydstyrke efter støjnive¬ 
auet i kabinen. 

Tonekontroller er mange ting. En al 
de gode er den paramentriske 
equalizer, du kan bygge eiter vo¬ 
res forskrifter. 

Optiske laserplader er også på vej 
ind i data. Vi beskriver fremtidens 
Gigaplader i en stor reportage. 

Spiller du musik selv, - så læs vores 
test af Juno 106 synthesizeren. 

Megen lyd for færre penge. 

Masser af byg-selv idder: I/O port 
til Amstrad. - Mini mikrofon for¬ 
stærker - Lille RIAA Amp - kry- 
staltester. 


Køb ”ny elektronik” nummer 5 
hos din bladhandler i dag. 
Priskr. 21,85. 













Du kan også tegne abonnement på 
11 numre for kr. 218,50 på telefon 
01-11 28 33. 




Køb det nye nummer af 
Alt om Data i kiosken. 
Kun kr. 21,85 







